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HORIZONTAL-GRADIENT  ACOUSTICAL  RAY-TRACE  PROGRAM  TRIMAIN 


INTRODUCTION 

The  growth  in  computer  capability  over  the  last  15  years  coupled  with  interest  in 
underwater  acoustics  has  prompted  the  creation  of  several  computer  programs  for  acous¬ 
tical  ray  tracing.  For  short-range  calculation,  for  which  the  sound-speed  profile  can  be  con¬ 
sidered  to  be  the  same  throughout  the  given  domain  and  the  bottom  topography  can  be 
considered  flat,  computation  time  is  conserved  by  using  a  single  profile  program  which 
takes  advantage  of  the  periodic  form  of  the  ray  trajectories,  such  as  the  program  RTRACE 
[1].  For  long-range  acoustical  ray  tracing,  for  which  the  bottom  profile  as  well  as  the  hori¬ 
zontal  velocity  structure  is  quite  varied,  a  more  general  program  [2-4]  is  required.  One 
example  of  this  is  the  program  TRIMAIN,  the  principal  features  of  which  are  as  follows: 

•  Acoustic  velocity  gradients  in  the  sound  speed  field  are  accounted  for  by  reading 
in  sound-speed  profiles  as  a  function  of  range  and  depth.  Sound-speed  profiles 
may  be  introduced  at  any  point  in  range,  and  there  is  no  limit  to  the  number 
which  may  be  used,  although  each  new  profile  slows  the  program.  A  maximum 
of  50  input  and  internally  generated  points  are  allowed  per  profile.  The  sound- 
speed  profiles  are  assumed  to  be  piecewise  linear  functions  of  depth  and  range. 

An  excellent  source  of  sound-speed-profile  data  is  the  NODC  tapes  [5]. 

•  A  variable  bottom  may  be  read  in  as  a  piecewise  linear  function  of  depth,  with 
a  maximum  of  250  pc>nts  as  the  end  points  of  the  linear  pieces. 

•  The  range-and-depth  plane  is  divided  into  triangular  regions  whose  vertexes  are  all 
initially  at  ranges  equal  to  the  ranges  of  the  endpoints  of  the  linear  bottom  segments. 

•  The  rays  are  assumed  to  be  parabolic  in  each  triangle,  and  it  is  their  intersections 
with  the  triangle  boundaries  that  are  calculated. 

•  All  the  rays  are  advanced  at  one  time  to  a  given  range,  rather  than  tracing  one 
ray  at  a  time  all  the  way  to  the  end  of  the  track. 

•  Four  types  of  intensity  calculation  are  available:  type  I  random  phase  summa¬ 
tion,  type  I  coherent  phase  summation,  type  II  (average  over  depth),  and  type 
III  (average  over  convergence  zone).  Unmodified  ray  theory  is  used  throughout. 
(Caustics  will  be  discussed  later.) 

•  The  volume  attenuation  in  the  medium  is  assumed  to  follow  a  modified  Marsh- 
Schulkin  formula. 

•  Bottom-loss  values  (in  dB),  may  be  entered  as  a  function  of  grazing  angle,  one 
value  per  degree,  or  the  Marine  Geophysical  Survey  (MGS)  bottom-loss  values  may 
be  used  by  specifying  the  class  and  the  range  to  which  that  value  is  to  be  used. 

•  A  bottom-phase-shift  table  may  be  entered  for  coherent  phase  calculation  if 
known;  it  is  read  in  as  a  value  in  radians,  one  value  per  degree. 


Note:  Manuscript  submitted  September  17,  1974. 
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•  The  sea  surface  is  represented  as  a  flat,  specularly  reflecting  boundary  with  a 
constant  user-specified  reflection  coefficient  and  a  constant  phase  shift  of  180°. 

•  A  source  beam  pattern  may  be  read  in  at  1 -degree  intervals. 

Several  output  options  are  available : 

•  A  printplot  of  intensity  vs  range, 

•  A  printout  of  intensity  vs  range  values, 

•  A  printplot  of  the  ray  trajectories  vs  range, 

•  A  Calcomp  plot  of  ray  trajectories  vs  range, 

•  Ray  depth  distribution  at  specified  ranges, 

•  A  Calcomp  plot  of  the  input  sound-speed  profiles, 

•  A  printplot  of  the  input,  or  of  the  input  and  interpolated,  sound-speed  profiles, 

•  An  eigenray  printout  if  intensity  calculations  are  performed, 

•  Punched  cards  for  intensity  values  or  eigenrays. 

Up  to  ten  output  control  cards  may  be  specified. 

The  calculated  results  from  TRIMA1N  have  been  compared  with  experimental  results, 
(Appendix  B),  and  good  agreement  exists  between  the  two. 

The  time  required  to  run  the  program  depends  on  a  number  of  factors,  such  as  the 
number  of  rays,  the  number  of  range  increments,  and  the  output  requested.  A  sample 
case  using  81  rays,  200  range  increments,  one  receiver,  and  two  profiles  took  7  minutes 
and  48  seconds. 

The  core  requirement  for  the  program  and  system  routines  is  43,503  decimal  loca¬ 
tions.  Also,  some  sort  of  deferred  printout  equipment  is  required,  such  as  a  drum,  or  the 
data  may  be  written  on  tapes  and  the  tapes  printed. 

The  original  development  (6]  of  this  computer  code  was  due  to  Mr.  Edward  L. 
Wright,  who  is  now  at  Harvard  Observatory,  Cambridge,  Massachusetts.  The  author  has 
added  a  number  of  features  which  were  not  in  the  original  program  and  has  revised  cer¬ 
tain  sections.  The  funciton  of  each  subroutine  will  be  outlined  in  this  report  for  the  con¬ 
venience  of  those  individuals  who  might  be  interested  in  modifying  the  program. 


BASIC  EQUATIONS 

The  basic  differential  equations  which  are  solved  in  TRIM  AIN  for  ray  position  and 
time  are: 


n(T)  = 

c(r ) 

(1) 

(d/ds)T  =  n(T)  , 

(2) 

(d/ds)  [n(T)(d/ds)?j  =  vn(f). 

(3) 

Eq.  (1)  states  that  the  index  of  refraction  as  a  function  of  range  is  equal  to  the  reciprocal 
of  the  sound  speed  as  a  function  of  range.  Eq.  (2)  is  the  equation  for  the  ray  time,  where 
T  is  time  and  ds  is  arc  length.  Eq.  (3)  is  the  Lagrangian  equation,  where  "v  is  the  Lagran- 
gian;  it  gives  the  ray  path  and  accounts  for  the  refraction. 
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We  will  now  develop  an  equation  for  velocity  fit.  If  we  have  the  triangle 

r 


where  depth  is  in  the  2  -*  1  or  z  direction  and  range  is  in  the  2  -►  3  or  r  direction,  then 
the  following  equations  hold: 


1 

?  c 


2  2 

C  C 

C2  C1 


£ 

c» 

1 


=  GAr3  ~r0  +  G2<*3  -  *l>» 
=  Gr(r2  -  rj)  +  G2(z2  -  zx), 


“  =7  +Cr(r-r1)  +  0,(*-*1)f 

c2 


(4) 


(5) 


(6) 


where  Gr  is  the  gradient  in  the  r  direction  and  is  the  gradient  in  the  z  direction.  Eq. 
(6)  gives  the  reciprocal  of  the  sound  speed  squared  at  a  range  r  and  depth  z  in  the  tri¬ 
angle.  We  will  specialize  to  the  case  r2  =  rp  because  we  will  always  be  getting  vertical 
profiles. 


TRIMAIN  INPUT 

Following  will  be  a  list  describing  the  data  deck  of  the  program  TRIMAIN,  and  for 
illustration  the  sample  data  deck  shown  in  Fig.  1  will  be  referred  to.  The  Roman  num¬ 
bers  itemizing  the  list  are  the  card  group  numbers  at  the  right  in  Fig.  1. 

I.  Title  (columns  1-80).  In  the  restarting  case,  the  word  RESTART  is  placed  in 
columns  1-7.  If  a  dump  is  desired  if  program  runs  out  of  time  again,  DUMP 
is  placed  in  columns  9-12. 


II.  Source  Parameters 
Variable 
Source  depth 

Frequency 


Columns  Remarks  or  Meaning 

1-8  In  meters.  (In  Fig.  1  the  source  depth 
is  500  meters.) 

9-13  In  kilohertz  (0.05  kHz  in  Fig.  1) 


I 
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Sample  data  deck  of  the  program  TRIM  AIN 
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Variable  Columns  Remarks  or  Meaning 


Attenuation  switch  14  0  (as  in  Fig.  1)  means  no  volume  attenu¬ 

ation;  nonzero  means  a  =  0.0003025/2 
+  44/2/(4100  +  /2)  dB/km,  where  /  is 
the  frequency  in  kilohertz. 


Source  level 

15-19 

Level  in  decibels  (0.0  in  Fig.  1) 

Beam  pattern  switch 
(to  be  referred  to  later 
as  ITBP) 

20 

0  (as  in  Fig.  1)  means  no  beam  pattern; 
nonzero  means  the  beam  pattern  will  be 
read  in  later. 

Down  tilt 

21-25 

Tilt  of  the  beam-pattern  axis  in  degrees 
(0.0  in  Fig.  1). 

Surface  loss 

26-30 

Surface  loss  in  decibels  (0.0  in  Fig.  1). 

Bottom-loss  switch 

31 

1  means  an  infinite  bottom  loss,  so  that 
no  table  will  be  read  in;  0  (as  in  Fig.  1) 
means  a  loss  table  will  be  read  in  later. 

Bottom-phase  switch  (ISCP) 

32 

1  means  a  bottom-phase-shift  table  will 
be  read  in;  0  (as  in  Fig.  1)  means  no 
table  will  be  read  in. 

Curved  earth  (receiver) 

33 

1  (as  in  Fig.  1)  means  a  curved  earth 
correction  for  the  receiver;  0  means  no 
curve. 

Curved  bottom  points 

34 

1  (as  in  Fig.  1)  means  a  curved  earth  cor¬ 
rection  for  the  bottom;  0  means  no  curve. 

Plot  (Calcomp)  profiles 

35 

2  means  input  and  interpolated  profiles 
are  plotted;  1  (as  in  Fig.  1)  means  only 
input  profiles  are  plotted;  0  means  no 
plot. 

Printplot  profiles 

36 

1  means  printplot-input  profiles;  0  means  ^ 
no  plot;  2  (as  in  Fig.  1)  means  printplot-  ' 
input  and  interpolated  profiles. 

Calcomp  plot  profiles  in 
kilometers  or  nautical  miles 

37 

1  means  plot  nm;  0  (as  in  Fig.  1)  means 
km. 

Plot  length 

38-45 

Calcomp  plot  length  in  inches  (24.0 
inches  in  Fig.  1). 
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Variable  Columns  Remarks  or  Meaning 

Bottom-reflection  46-50  Maximum  number  of  bottom  hits  al- 

termination  (NBRS)  lowed  before  a  ray  is  terminated;  if 

blank  (as  in  Fig.  1)  or  0,  2500  will  be 
used. 

Surface-reflection  51-55  Maximum  number  of  surface  hits  allowed 

termination  (NSRS)  before  a  ray  is  terminated;  if  blank  (as 

in  Fig.  1)  or  0,  2500  will  be  used. 

Loss  termination  (ALIM)  56-65  Maximum  loss  allowed  before  a  ray  is 

terminated;  the  input  value  is  a  positive 
number  in  dB,  such  as  200.0;  if  blank 
(as  in  Fig.  1)  or  0,  a  value  of  300.0 
will  be  used. 


Multiple  replacement  option  66  If  IA  is  blank  (as  in  Fig.  1)  or  0  and 
IA  ITBP  =  0,  angle  cards  are  read  from  the 

card  reader;  if  IA  is  blank  or  0  and 
ITBP  =  1,  angle  fan  cards  and  beam- 
pattern  cards  are  read  from  the  card 
reader.  If  IA  =  1  and  ITBP  =  0,  the 
last  set  of  fan  cards  for  which  multiple 
replacement  option  LA  (in  column  71) 
is  1  will  be  used,  and  if  ITBP  =  1  a 
new  beam  pattern  will  then  be  read  in. 

If  IA  *  2,  which  requires  that  ITBP  = 

1,  the  old  beam  pattern  will  be  used  and 
a  new  set  of  angles  will  be  read.  If  IA 
=  3,  the  old  angle  set  and  beam-pattern 
set  is  used. 


Multiple  replacement  option  67  If  IB  is  blank  or  0,  bottom-loss  cards 
IB  are  read  from  the  card  readei ,  and  if 

ISCP  =  1,  phase-shift  cards  are  read. 
Bottom  classes  0  through  5  are  assumed 
to  have  a  zero  phase  shift,  so  phase-shift 
cards  are  not  read  for  these  classes.  If 
IB  =  1,  the  old  bottom-loss  set  is  used, 
and  a  new  bottom-phase-shift  set  is  read 
in  if  ISCP  =1.  If  IB  =  2,  a  new  bottom- 
loss  set  will  be  read  in,  and  if  ISCP  =  1, 
the  old  bottom-phase-shift  set  will  be 
used.  If  IB  =  3  and  ISCP  =  1,  the  old 
bottom-phase-shift  and  bottom  loss  will 
be  used. 
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Variable  Columns 


Multiple  replacement  option  68 
IP 


Multiple  replacement  option  69 
ID 


Multiple  replacement  option  70 
IS 


Multiple  replacement  option  71 
LA 


Remarks  or  Meaning 


If  IP  is  blank  or  0,  a  new  set  of  output 
control  cards  will  be  read  in;  if  IP  *  1, 
the  old  set  will  be  used. 

If  ID  is  blank  or  0,  a  new  bottom  track 
will  be  read,  if  ID  =  1,  the  old  bottom 
track  will  be  used. 

If  IS  is  blank  or  0,  a  new  set  of  sound- 
speed  profiles  will  be  read;  if  IS  =  1, 
the  old  set  will  be  read. 

If  LA  =  1,  the  current  deck  will  be 
used  later;  if  LA  is  blank  or  0,  no  por¬ 
tion  of  this  deck  will  be  used  later. 

Thus  in  the  following  pages  the  discus¬ 
sion  of  the  various  input  sections  are 
subject  to  the  provisions  of  this  section. 


i 


Restart  Option 


73-76  If  restart  capabilitv  is  desired,  the  word 
DUMP  is  placed  in  columns  73-76. 


III.  Ray  Initialization  Cards 


A.  Fan  Cards 

Variable  Columns  Remarks 


Up-angle  limit  1-10  In  degrees;  the  sign  convention  is  +  for 

up  and  -  for  down.  (In  Fig.  1  there 
are  three  fan  cards,  each  on  a  separate 
line;  the  three  up-angle  limits  are  15° 
down,  16°  up,  and  76°  up.) 


Down-angle  limit  (DAL)  11-20  DAL  =  -DAL  l’or  input.  (In  Fig.  1  the 

three  down-angle  limits  that  pair  with 
the  up-angle  limits  are  75°  down,  15° 
down,  and  15°  up.) 


Angular  step  21-30 


The  step  input  is  always  positive.  (In 
Fig.  1  the  step  is  1°  from  75°  down  to 
15°  down,  V4°  from  15°  down  to  16° 
up,  and  1°  from  16°  up  to  75°  up.) 


i 
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Columns  Remarks 

31-35  0  means  this  is  the  last  fan  card; 

1  means  more  cards  follow. 

36-40  Decibels  added  for  this  fan  to  the 

source  level  in  columns  15-19  on  card 
II.  This  is  left  blank  (as  in  Fig.  1)  if 
no  additional  beam  pattern  on  the 
transmitter  is  desired. 

Phase  41-45  Phase  in  radians  for  this  fan. 

B.  Beam  Pattern  Cards 

If  the  beam  pattern  switch  on  card  II  (column  20)  was  nonzero,  the  beam 
pattern  is  read  in,  20  values  to  a  card,  which  is  four  columns  per  value, 
in  decibels  below  the  axial  value.  The  first  value  is  on  axis,  the  next  1° 
off,  etc.  A  blank  or  zero  after  the  axial  value  ends  the  readin;  the  last 
nonzero  value  is  extended  to  all  higher  angles. 

IV.  Bottom-Loss  Cards 

Cards  are  read  with  a  variable  (referred  to  as  RUNTIL)  in  columns  1-8  in  kil¬ 
ometers  (in  an  18.4  format) 

and  I  Class  in  columns  9-10  (12  format).  RUNTIL  is  the  last  range  for  IClass. 

(In  the  Fig.  1  example  457.0  6  means  class  6  until  457  km  (assuming  another 

RUNTIL  after  this  which  is  0.0).  The  last  RUNTIL  must  be  negative  or  zero. 
The  associated  class  will  be  used  for  the  rest  of  the  run.  The  possible  values 
for  IClass  are  0-9: 

0  zero  bottom  loss 

1-5  MGS  bottom  class  loss  curves 

6-9  user  supplied  tables. 

The  first  time  an  IClass  of  6  (as  in  Fig.  1),  7,  8,  or  9  is  read,  a  bottom-loss  table 
is  read,  one  value  per  degree,  in  decibels,  20  per  card  (in  a  20F4.2  format)  until 
a  blank  appears.  (In  Fig.  1  the  table  with  an  IClass  of  6  is 

1.  2.  3.  4.  5.  6.  7.  8.  9.  10.  blank 

I  1 

(zero  grazing  angle)  (9  degrees) 

* 

When  an  IClass  of  6,  7,  8,  or  9  is  read  in  after  the  first  time,  the  table  does  not 
need  to  be  read  in  again.  In  reading  in  a  table  the  last  nonzero  value  is  extended 
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to  all  higher  angles.  If  ISCP  f  0  on  card  II,  a  phase-shift  table  will  be  read 
after  each  loss  table  (classes  6-9;  classes  0-5  have  zero  phase  shift).  The  phase- 
shift  table  is  read  in,  20  values  per  card,  1°  per  value.  The  phase  shifts  are  in 
radians.  A  zero  value  terminates  read  in;  the  last  two  nonzero  values  are  used 
to  extrapolate  the  phase  shift  to  zero.  (In  Fig.  1  no  phase-shift  table  was 
read  in.  The  bottom-loss  tables  in  Fig.  1  establish  the  following: 


Grazing  Angle 
(degrees) 


Loss  Until  457  km 
(dB) 


Loss  After  457  km 
(dB) 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


v 

90 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

10 

10 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
14 
14 


Output  Control  Cards 

Output  control  cards  specify  the  range  and  depths  at  which  intensities  are  to 
be  calculated,  whether  a  ray  plot  or  ray  tape  will  be  made,  whether  ray  depth 
distributions  will  be  printed,  etc. 

Variable  Columns  Remarks 


R1 

1-6 

First  range  in  kilometers. 

DR 

7-12 

Range  step  in  kilometers.  If  DR 
is  negative,  the  range  spacing  will 
logarithmic,  with  constant  factor 
f=  1  +  abs(DR)/R±. 

R2 

13-18 

Last  range  in  kilometers.  (In  Fig. 

the  ranges  specified  are  100,  200,  .... 
1000  kilometers  on  the  first  group  V 
card,  5,  10,  15,  ...,  1000  kilometers 
on  the  second  card,  1,  2,  ...,  100 
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Variable  Columns  Remarks 


kilometers  on  the  third  card,  and  0,  1, 
2,  ....  1000  kilometers  on  the  fourth 
card.) 


IC 

19-20 

Continuation  switch.  0  means  this  is 
the  last  output  control  card;  (as  on 
the  last  OCC  in  Fig.  1)  otherwise 
more  will  be  read  in. 

ISCP 

21 

Switch  for  type  I  coherent  phr.;e;  1 
means  on,  and  0  means  off. 

IT1 

22 

Switch  for  type  I  random  phase;  1 
means  on,  and  0  means  off.  MUST  = 
1  when  ISCP  =  1. 

IT2 

23 

Switch  for  type  II;  1  means  on,  and 

0  means  off. 

IT3 

24 

Switch  for  type  III;  1  means  on,  and 
0  means  off. 

IPER 

25 

Switch  for  type  I  eigenrays;  1  means 
on,  and  0  means  off. 

LLMR 

26 

1  means  Lloyd’s  mirror  effect  is 
included. 

JVSR 

27 

0  means  no  intensity-vs-range  plot  for 
this  output  control  card;  1  means  a 
plot  of  type  I  vs  range;  2  means  a 
plot  of  type  II  vs  range;  3  means  a 
plot  of  type  III  vs  range;  4  means 
coherent  phase  vs  range.  Only  one 
intensity-vs-range  plot  can  be  made. 

IRD 

28 

Switch  for  ray  depth  distribution  (1 
means  on,  as  on  the  first  group  V 
card  in  Fig.  1),  and  0  means  off. 

IRP 

29 

Switch  for  ray  plot. 

IRT 

30 

Switch  for  ray  tape  for  Calcomp  plot. 

If  any  of  the  switches  in  columns  21-25  are  on,  receiver  depths  are  needed.  The 
first  six,  in  meters,  are  on  the  output  control  card  itself,  as  follows: 
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Variable  Columns 


RCD(l) 

33-40 

RCD(2) 

41-48 

RCD(3) 

49-56 

RCD(4) 

37-64 

RCD(5) 

65-72 

RCD(6) 

73-80 

If  there  are  more  than  six,  the  next  ten  depths  follow  the  output  control  card 
on  one  card,  and  then,  if  needed,  the  17th  through  26th  on  another  card. 
Twenty-six  is  the  maximum  available.  Receiver  depths  are  read  until  a  zero  or 
blank  is  found.  (In  Fig.  1  five  receiver  depths  are  specified  on  each  of  the 
first  three  cards:  50,  150,  250,  350,  and  450  meters.)  If  none  of  the  switches 
21-25  are  on,  then  no  intensities  will  be  calculated,  so  no  receiver  depths  are 
necessary.  These  and  some  earlier  spaces  are  then  used  for  the  ray  plot,  as 
follows : 


Variable 

Columns 

Remarks 

DR 

7-12 

Becomes  the  spacing  in  kilometers 
between  lines  in  the  ray  plot. 

R2 

13-18 

Becomes  the  end  of  the  ray  ploi. 

RCD(l) 

33-40 

Becomes  the  number  of  rays  to  be 
plotted,  1  <  N  <  25.  This  must  oe 
punched  with  a  decimal  point.  (On 
the  fourth  group  V  card  in  Fig.  1, 
25  rays  are  specified  to  be  plotted.) 

RCD(2) 

41-48 

Becomes  the  maximum  depth  for 
the  ray  plot,  in  meters. 

All  these  variables  will  be  set  to  default  values  if  not  specified  because  of 
intensities.  The  defaults  are:  1  kilometer  spacing,  15  rays  plotted,  and  the 
maximum  bottom  depth.  Even  if  DR  and  R2  are  set,  the  defaults  for  number 
of  rays  and  (as  in  Fig.  1)  maximum  depth  may  be  used  if  the  columns  are  left 
blank. 

VI.  Bottom  Track 

A.  Ranges  and  Depths 

There  are  10  values  to  a  card,  with  range  and  depths  in  pairs  with 
respective  units  in  kilometers  and  meters.  The  first  range  must  be  zero. 

A  later  blank  or  zero  or  negative  value  terminates  the  input.  As  many 
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cards  as  necessary,  up  to  50  cards  for  250  ranges,  will  be  read.  Thus  R i  is  in 
columns  1-8  of  card  1,  D\  is  in  columns  9-16  of  card  1,  R2  '8  *n  columns  17-24, 
D 2  is  in  columns  25-32,  etc.  The  format  for  range  and  depth  is  10F8.4. 

VII.  Sound-Speed  Profiles 

A.  Range  and  Title 

On  the  first  card  for  each  velocity  profile,  0  is  placed  in  column  1  if  the 
curved-earth  correction  is  desired.  The  range  to  the  profile  in  kilometers  is 
in  columns  2-8.  The  title  is  in  columns  9-80. 

B.  Depth  and  Velocity 

There  are  10  values  per  card  after  the  range-and-title  card.  The  first  value 
on  the  card  is  the  depth  in  meters  for  this  profile.  The  second  value  is  the 
sound  speed  in  meters/per  second,  at  the  first  depth.  As  many  sound  speeds 
as  depths  are  read  in.  A  blank  or  negative  value  terminates  input.  The 
format  for  all  cards  is  10F8.4.  (The  number  of  input  and  internally  gen¬ 
erated  points  in  a  sound-speed  profile  cannot  exceed  50;  the  number  of 
internally  generated  points  can  be  reduced  by  reading  in  profiles  with 
common  depths.) 

VIII.  Program  Termina.ion 

An  end-of-file  card  terminates  each  data  set  or  case.  If  multiple  cases  are  desired, 
the  program  will  go  back  to  the  first  card,  after  the  end-of-file  card.  To 
terminate  the  run  two  end-of-file  cards  should  be  placed  after  the  last  case. 


CONTROL  CARDS  FOR  TRIMAIN 

There  are  several  equip  cards,  which  have  different  functions  (Fig.  2).  Some  of  the 
cards  are  used  for  delayed  printout,  and  some  are  used  to  punch  cards.  When  using  the 
program,  one  should  change  his  job  card  to  the  form  7„  JOB  (30),  charge,  ID,  time, 
rather  than  the  usual  form  7g  JOB,  charge,  ID,  time.  The  change  from  JOB  to  JOB  (30) 
allows  30  additional  logical  units;  without  this  change  the  program  will  abort. 

If  the  output  is  not  desired  from  a  certain  unit,  it  inay  be  omitted  by  using  the  BY 
statement.  Thus  if  one  wanted  to  omit  the  output  from  logical  unit  35,  then  one  should 
have  7 9  EQUIP,  35=BY,  where  BY  means  bypass.  The  PR  designation  on  an  equip  card 
means  that  unit  will  be  printed.  A  PU  designation  means  that  logical  unit  will  punch 
cards.  The  function  for  each  card  is  as  follows: 

79  DEMAND,  50000B  -  This  card  is  required  for  the  restart  option. 

7 9  EQUIP,  3=PL  -  This  card  forces  plotting  of  profiles  if  the  program  aborts, 

if  the  plot  is  requested. 
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SEQUENCE  C666  0  STARTED  PRINTING  06/06/73  AT  132946  6N  IPOQ 

DRU*  SCARE  ?.  1  C0MPuTfcP  fiNE,  MAX,  DEMAND  IS  5400QR  VERSION  006 

SEQUENCE  M,m6ER  606660  STARTED  A?  TIME  132726  DATED  06/06/7J 


J98<30>, 8160162, 0148QR, 10 
DEMAND, 50CU06 

comment, tus  jen  produces  delayed  printouts 

EQUIP,  1*PT,  m.  aO,  (TEST  CASE,  1 , 1 «  99  V) ,  DA 


EQUIP. 3*Pl 

EQUIP, 15*PT ,LE, (TEST, lii, 990)»CA 
E0uIP,16*MT , L0 , i  DA 

EQUIP. 20*Al  ,MI  * T*3 •  ( TRIP* IN, 01, 011 9” > 

EQUIP. 35*EY 
EQUIP. J6»EY 
EQUIP. 37*PR 
EQUIP. 38*FR 
EQUIP. 39*PR 
EQUIP. 41*PR 
EQUIP, 42«PR 
EQUIP. 45iET 
EQUIP, 46*EY 
EQUIP, 47*EY 
EQUIP, 4R»EY 
EQUIP, 49*EY 
•••BINARY  CFCK»»* 


b  A im K  ,  (  0  )  ,  LUMP 

L0AD.2O 

RUN.IO.IOCLO 


11/24/72 


Fig.  2  —  Example  of  control  cards;  this  is  the  front  page  from  the  sample  run 


7 9  EQUIP,  35=BY(PU)  •  This  will  punch  the  bottom  track  and  receiver  depths  if  set 

equal  to  PU.  Format  10F8.3. 

7 9  EQUIP,  36=BY(PU)  •  This  will  punch  intensity  values  in  16F5.1  format,  for  each 

range  point.  Each  type  of  intensity  will  be  punched  for  each 
receiver. 


7 9  EQUIP,  37=PR 
79  EQUIP,  38=PR 

79  EQUIP,  39=PR 
7 g  EQUIP,  41=PR 
7 9  EQUIP,  42=PR 


•  This  produces  a  ray  depth  distribution  if  requested. 

•  This  produces  a  printplot  of  intensity  vs  range  if  requested  on 
an  output  control  card. 

-  This  prints  the  intensity  values  for  the  types  specified. 

•  This  prints  the  Type  I  eigenrays  when  they  are  requested. 

-  This  produces  the  printplot  of  the  ray  trajectories  when 
requested. 


7 9  EQUIP,  45=BY(PU)  •  If  this  is  set  equal  to  PU,  it  will  punch  type  I  coherent 

intensity  values  for  the  contouring  program.  If  should  be  set 
up  for  19  receivers. 
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79  EQUIP,  46=BY(PU)  -  If  this  is  set  equal  to  PU,  it  will  punch  type  I  random  intensity 

values  for  the  contouring  program.  It  should  be  set  up  for 
19  receivers. 

7 9  EQUIP,  47=BY(PU)  ■  If  this  is  set  equal  to  PU,  it  will  punch  type  II  intensity  values 

for  the  contouring  program.  It  should  be  set  up  for  19  receivers. 


79  EQUIP,  48=BY(PU) 


If  this  is  set  equal  to  PU,  it  will  punch  type  III  intensity  values 
for  the  contouring  program.  It  should  be  set  up  for  19  receivers. 


79  EQUIP,  49=BY(PU) 


This  punches  type  I  eigenrays;  it  punches  everything  that  is 
printed  in  the  eigenray  printout. 


;9  EQUIP,  1=MT,HI,W0,**, DA— OUTPUT  TAPE  FOR  CALCOMP  PLOT  OF  RAY  PATHS 

The  equip  cards  may  be  left  in  the  deck  if  a  certain  option  is  not  desired;  there  will 
be  no  output  from  that  unit  unless  a  write  operation  is  performed  in  the  program. 


SUBROUTINES 

The  main,  or  executive,  program  TR1MAIN  is  used  chiefly  for  selecting  options  and 
calling  the  proper  subroutine  to  compute  the  desired  quantities.  The  subroutines  are 
shown  in  Fig.  3.  and  these  will  be  discussed  on  the  succeeding  pages.  All  of  the  output  con¬ 
trol  cards  (group  V).  title  cards  (group  I),  and  source  depths,  frequency,  etc.  (group  II) 
are  read  in  by  the  main  program.  A  listing  of  TRIMAIN  and  the  subroutines  is  found 
in  Appendix  A.  A  comparison  of  calculated  and  experimental  values  is  found  in  Appendix 
B. 


Subroutine  INITRAYS 

The  subroutine  INITRAYS  (whose  cards  are  identified  in  the  right  margin  in  Appendix 
A  by  INIT  1,  INIT  2,  ...,  INIT  81)  reads  in  the  angle  cards  and  the  beam-pattern  cards 
and  sets  up  the  initial  values  of  each  ray’s  tangent  of  the  angle,  depth,  phase,  and  signal 
level,  (card  group  numbers  will  be  listed  in  the  section).  Information  from  card  group  II 
from  the  main  program  is  passed  in  the  common  block  /PATTERN/  (INIT  3,  Appendix  A), 
which  contains  the  source  depth,  beam-pattern  switch,  degrees  of  down  tilt,  and  source 
level  (in  decibels).  INITRAYS  then  reads  in  card  group  III,  comprising  the  fan  cards  and 
the  beam  pattern  cards.  Rays  are  started  from  the  lowest  angle  of  each  fan  to  the  top. 

If  the  low  angle  of  a  fan  equals  the  highest  angle  of  the  previous  fan,  a  continuous  ray 
group  results.  Otherwise  a  buffer  ray  with  zero  signal  strength  separates  the  fans,  and  type 
I  intensity  calculations  will  not  interpolate  over  the  gap. 


Subroutine  BRLTRD 

The  subroutine  BRLTRD  reads  in  the  bottom-loss  cards  (group  IV)  and  sets  up  the 
first  loss  table.  On  entry,  dummy  parameter  RB  is  equated  to  1SCP  (card  group  II),  is 
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either  1.0  or  0.,  and  determines  whether  phase-shift  tables  will  be  read.  On  exit,  RB  is 
set  to  the  range  in  kilometers  until  which  the  first  loss  table  is  to  be  used.  The  term 
ENTRY  NWBRLT  (as  in  BLRD  146)  resets  the  loss  table  and  RB.  TRIM  AIN  will  call 
NWBRLT  whenever  the  rays  pass  RB.  For  example,  if  there  are  two  loss  tables,  one  for 
0  to  100  km  and  the  second  for  100  km  to  the  end  of  the  run,  BRLTRD  will  read  in 
both  tables,  set  BRLT  and  BPST  in  the  common  block  /MIRRORS/  (BLRD  3,  Appendix 
A)  and  set  RB  to  100.  Later  a  call  to  NWBRLT  sets  BRLT  and  BPST  to  the  second 
table  of  values,  and  RB  to  I.E30  (i.e.,  1030  km  >  end  of  run).  Subroutine  BRLTRD 
includes  the  Marine  Geophysical  Survey  (MGS)  classes  0  through  5,  plus  user  classes  6 
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through  9  stored  in  array  BR,  or  user  loss  and  phase  classes  6  and  7,  stored  in  arrays  BR 
and  BP.  If  a  class  0  through  5  is  specified,  bottom  phase  classes  do  not  have  to  be  read 
in.  A  maximum  of  four  user  classes  are  available  without  phase  shifts,  and  two  classes 
are  available  with  phase  shifts.  If  classes  0  through  5  are  used,  a  maximum  of  50  cards 
is  allowed. 


Subroutine  NEWPROF 


Subroutine  NEWPROF  reads  the  bottom  ranges,  bottom  depths  (group  VI),  and  the 
first  two  sound-speed  profiles  (group  VII)  on  the  first  call.  It  then  interpolates  a  profile 
for  the  first  bottom  point.  Succeeding  calls  generate  a  new  interpolated  profile  for  each 
bottom  point,  unless  this  would  pass  the  last  read-in  profile.  In  that  case,  a  bottom  point 
is  interpolated  to  the  profile  range,  and  the  profile  is  returned.  A  new  profile  is  then  read 
in.  Thus  the  basic  action  of  NEWPROF  is  to  move  R2  (range  to  the  current  profile),  N2 
(number  of  points  in  the  current  profile),  Z2  (depth  array),  and  V2  (sound-speed  array) 
to  R1  (range  to  the  previous  profile),  N 1  (number  of  points  in  the  previous  profile),  Z 1 
(depth  array  for  the  previous  profile),  arid  VI  (sound-speed  array  for  the  previous  profile) 
and  set  new  values  for  R2,  N 2,  Z2,  and  V2.  It  returns  the  maximum  bottom  depth  in 
ZMAX.  The  printed  output  of  NEWPROF  is  illustrated  in  Figs.  4a  and  4b. 
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Fig.  4a  —  Output  of  NEWPROF.  The  first  two  input  profiles  are 
those  of  the  sample  case  given  in  Fig.  1. 


17 


B.  0.  ROBERTS 


irl  vkLKi’MHI 


lit* 


KM  111!  HU  lit! 


!««• 


IMI  IMI 


•  •  IS  F  9 
II. MIS 
Mild 
lOl.lltl 
111. III! 
Ml. Hit 
Ml  MM 
•  I0MI4 
III  Ml) 

IMO.IMI 
WM  till 
K|l  I'll 
mo. mci 
KII.UH 
HIMIU 


IMI.KH 

mi. nil 

IMI.I'M 
IMI. MM 
UlMIM 

IMI.MM 
iMJ.OMt 
mi,  mi 

m* .  mi 
hi)  in' 
liiMUl 
Kiuin 
ini. ms 
iMimi 
mi.i/ii 
1MMI9I 


DIM*.  |»t  «lclC|MiM0 


|«l|  IMI  mi  lift  l*M  »!*•  »** 


Mill 

20 .  QIC  6 

so  oeci 

no. MCI 
IM.MII 
mi  .mi 
SOI. MM 
•CO. till 
•0802*1 
•  33.  OKI 
iOOO.OMI 
iMQ.uai 
330  I'M 

•990.9139 
S0Q9.Mll 
4003  ,0  0C6 


lMl.llll 
1MI.SM1 
I1IMW1 
IMI. 0231 
UlMJIi 
|MI.0«M 
1MS.0MI 
1MI.0MI 
iM’.mi 
lies, Ills 

noum 
iMi.rns 
iM9.«m 
SMI.lMt 
IM3.MII 
IMS ,  lfl| 


H'ISMLIHJ  MlrlLf  IT  *isn 


911034*  1 


of*™  mi  mtciviMo 


l«»0 


1H0  19*0  mo  1970  1*30  1*M 


0.90(0 
70.00(0 
*0.00(2 
100.00(0 
1*0.0011 
700.1021 
300. OOM 
•00.0110 
000.9213 

no .  o*(2 

1800. 0M* 
17*0.1220 
1*10. | >10 
lMO.fKi 
2000.3130 

3000. mu 

1001.79*0 

•200.00(0 


1919.9199 

1910.  an 

1919. 1349 
1900,9013 
1904.0000 
1904,0013 
1904.0430 

1**9.244* 
1902.73*3 
19U1.7200 
1419.0092 
1902.0040 
1900.3993 
1919.0239 
1911. 0001 
1930.11*9 
1994.3077 
1997,9033 


KTMMiltl!  *«9rn,|  17  linli  if0«Q03  - 


0I*TI»  l»)  VIHC|Tt14O0  1470  |H0  140Q  19*0  1910  1920  USD  1*40 


1.00(6 
21.01(6 
90.01(2 
100.0000 
191.0010 
701.0021 
300.0071 
••8.MI0 
OOC .0211 
000.09(2 
1000. 072* 
1290.1230 
1900.1710 
1790.74(3 
7010.313* 
2100.00(0 


1010. *330 
1000,0090 
1000,0704 
1409.2020 
1400,3794 
1491,3013 
1493.1003 

149o!?974 

1494,0409 

1900,7000 

1*04,7002 

1909,3993 

1914,9070 

1910.3091 


|WfC0*9lATtD  *MrtkC  RI4.QE  It O^O^C  " 


01*7*  III  vll0e|TTl4O0  1470  to«0  1400  1980  1910  1970  1930  t94| 


0.01(0  1400,440* 
71.0100  1O09.4O97 
91.01(2  1009,4977 
lit. 0110  1400.9Q47 
190.9010  1407,3974 
209. 0021  1400,9203 
311.0071  14*11,0074 
400.9130  1001.7029 
000.02N  1409.0713 
•01.09(2  1490,3003 
1000.0719  1901.0070 
1291,1230  19*9,079 
1*01.1710  1909.3993 
17*0,74(3  1914,4903 
2010.312*  1910.4474 
2100. ••(•  1*21.009 


Fig.  4b  —  Additional  portion  of  the  output  of  NEWPROF  shown  in  Fig.  4a 


Subroutine  CONNECT 

Subroutine  CONNECT  uses  Rl,  Nl,  Zl,  VI,  R2,  N2,  Z2,  and  V2  from  NEWPROF 
and  connects  the  points  into  triangular  (A )  regions.  The  coefficients  of  the  triangles  go 
into  the  common  block  /TRIANG/  (CONN  3,  Appendix  A).  The  variables  in  TRIANG 
are  the  following: 

AP,  BP  coefficients  of  the  A  boundary  in  the  prime  frame,  which  is 

centered  at  RZERO  and  ZZERO  and  rotated  by  an  angle  0, 

AL,  BL  coefficients  of  the  lower  A  boundary  in  the  ocean  frame. 

ZZERO,  RZERO  ocean  frame  coordinates  of  the  center  of  the  prime  frame. 

AA,  BB  coefficients  of  l/c2  in  the  prime  frame,  i.e.,  l/c2  -  AA  +  BBz\ 

SST,  CCT  sin  and  cos  of  0 ,  the  angle  between  the  ocean  and  the  prime 

frames. 

In  the  'isting  of  the  subroutine,  the  following  conditions  are  true: 

AL  +  BL*R  =  equation  for  boundary  of  triangle, 

AA  +  BZ*Z  +  BR*R  . 

c2 

A  typical  network  of  triangular  regions  is  illustrated  in  Fig.  5. 
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Subroutine  WORDSIZE 

Subroutine  WORDSIZE  calculates  some  machine-dependent  quantities.  Four  numbers 
are  packed  into  array  NCOUNT  by  using  ITN .  which  is  ITN  =  1/4  JBIG.,  where  JBIG 

is  the  largest  integer,  which  will  fit  into  one  computer  word.  The  four  numbers  in  each 
location  in  NCOUNT  are:  number  of  turnovers  for  this  ray,  number  of  bottom  reflections, 
number  of  tumunders,  and  number  of  surface  reflections.  ENTRY  RAYTAPE  writes  onp 
record  on  the  ray  tape.  The  first  record  will  contain  the  title  card.  Each  record  contains: 

NRAY  (number  of  ray), 

Range  (meters), 

Bottom  depth  (meters), 

Tan  7  (up  is  positive) 

Ray  depth  (meters), 

Signal  strength  (multi¬ 
plicative  factor), 

NCOUNT  (ray  history), 

Travel  time  (seconds), 

Phase  (radians). 


Each  one  contains  NRAY 
words.  All  tan  -y’s  precede 
all  ray  depths,  etc. 


Subroutine  ADVANCE 

The  basic  function  of  subroutine  ADVANCE  is  to  advance  the  rays  in  the  common 
block  /RAYS/  from  RSTART  to  RMAX.  The  procedure  is  as  follows:  First  the  proper 
triangle  is  found,  the  parabolic  path  is  found,  and  intersections  are  calculated  with  the 
earliest  intersection  being  used.  Then  surface  and  bottom  reflections  are  performed.  If 
ray  is  not  at  RMAX,  the  new  triangle  is  determined,  and  a  loop  is  made  in  the  procedure 
to  the  calculation  of  intersections. 


The  explanation  of  various  sections  is  as  follows: 

TANSUM  (ADVA0012,  Appendix  A)  is  the  tangent  sum  formula 

tan  0]  +  tan  9  2 


tan  (0 1  +  0 2)  - 


1  -  tan  0i  *tan  0  2 


DELT  gives  the  time  increment  of  a  ray  in  terms  of  the  range  increment  DR,  the  two 
tangents  T  and  S,  and  the  vertex  velocity  CM  IS  =  1/c^ . 

The  DO  100  IRAY  =  1,  NRAY  (ADVA0015)  (card  sequence  number)  selects  each  ray 
in  turn. 

ADVA0018  checks  to  see  if  a  ray  has  been  terminated. 

ADVA0019  through  ADVA0023  move  the  ray  variables  into  local  variables. 
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The  DO  20  /  ■  1,  NRT!  (ADVA0024  through  ADVA0030)  checks  each  triangle  to  see 
if  the  ray  is  in  it.  If  a  ray  is  on  a  boundary,  it  is  in  the  layer  it  is  pointing:  toward. 

CT( cos  $),  ST( sin  0),  (rotation),  and  ZO  and  R,0  (displsc'  nent)  define  the  primed  frame 
of  reference  in  which  there  is  no  r’  gradient. 

ZRP  and  RRP  are  the  initial  primed  ray  position. 

CIS  =  l/c2  at  the  ray. 

Note:  that  TGR  from  TGAM  (IRAY)  is  +  for  up  rays  and  -  fur  down  rays,  whereas 
TGRP  =  DZ'/dr'  is  +  for  down  rays  and  -  for  up  rays. 

ALPHA  (a)  is  the  path  curvature: 

Z'  =  ZRP  +  TGRD*{r'~  RRP)  +  ALPHA*(r’-RRP)2 


TA  =  2a 


The  quadratic  equation  solved  in  advance  is 

C  +  Py  ay2  *  0, 

where  y  ■  DRP  *  change  in  r*  *  RPNEW  -  RRP.  ALPHA  (a)  is  often  small  and  is 
zero  for  isovelocity  layers.  For  small  a  the  root 


y  *  [P-y/P*  +  4 ac  )  /2a 


is  unstable.  However,  if  a  is  small,  the  iteration  y  ®  (ay2 -C)/P  converges  last.  The 
statement  DRP  *  ( AL?HA*HALPHA*DRP**2-C)/P)**2-C)/P  is  a  double  application 
of  the  above  iteration  and  is  used  when 

F  =  P-/P2  +  4a  C  <P- 

When  a  *  0,  special  linear  path  statements  are  used  (ADVA0055  through  ADVA0065 
and  ADAV0171  through  ADVA0174).  After  statement  40  (ADVA0085),  the  next 
position  is  selected. 

ONUP  is  true  if  a  ray  is  on  the  upper  boundary  of  a  layer,  meaning  within  1  centi¬ 
meter  of  the  boundary  and  pointing  in.  ONLW  is  true  if  a  ray  is  on  the  lower 
boundary. 

There  are  four  possibilities,  in  RPNEW,  ZPNEW,  ZNEW,  and  RNEW  arrays.  In  gen¬ 
eral,  the  rule  is 

RNEW  -  min(RNEW(fe))  such  that  RNEW(fe)  >  RR). 
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When  a  ray  is  on  a  boundary  however  the  solution  closest  to  the  ray  on  that  boundary 
is  thrown  out  (ADVA0095,  ADVA0096,  ADVA0099,  and  ADVA100).  Note,  as 
shown  in  the  following  sketch,  that  a  ray  can  be  on  both  boundaries  if  it  is  on  a 
corner. 


If  RNEW  >  RMAX,  then  the  ray  hits  the  vertical  boundary  (following  sketch)  and  one 
goes  to  statement  50. 


The  cards  from  ADVA0129  to  ADVA0163  increment  the  ray  variables  and  decide 
on  the  next  triangle. 

ADVA0135  checks  for  vertices. 

ADVA0136  decides  whether  a  vertex  is  over  or  under. 

ADVA0142  through  ADVA0148  handles  surface  reflections. 

ADVA0151  through  ADVA0161  handles  bottom  reflections. 
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Statement  50  starts  the  vertical  boundary  section.  The  boundary  in  the  primed  frame 
isZ’=  AV  +  BVr’. 

If  ST  *  0,  BV  -*■  hence  small  ST’s  are  handled  by  statement  60. 

When  two  intersections  are  possible,  the  one  with  the  smallest  depth  change  is  used. 
Statement  52  checks  for  vertices. 

Hie  statements  ADVA0204  and  ADVA0205  (545)  check  the  ray’s  final  depth  io  be 
sure  it  is  in  the  correct  layer. 

Volume  attenuation  is  approximated  by  0.0001  u  (dB)/km  VAT  decibels,  since  one 
should  have  S  »  J'v  dt  instead  of  VA  T. 

Hie  local  variables  are  restored  in  the  table  ADVA0208  through  ADVA0212,  and  a 
new  ray  is  taken  at  statement  100. 

Statements  60  through  68  (ADVA0214  through  ADVA0235)  use  an  iterative  scheme 
to  find  the  intersection  with  a  vertical  boundary.  For  ST  ■  0  or  a  *  0  the  first  step 
is  exact.  Hie  convergence  limit  is  1  centimeter,  but  seven  steps  are  taken  at  once, 
so  the  usual  error  is  very  small. 

Statement  80  terminates  a  ray  and  prints  out  the  message  RAY  TERMINATED. 
Statement  100  is  the  end  of  the  outer  loop  of  subroutine  ADVANCE. 


Subroutine  PROFPLOT 

Subroutine  PROFPLOT  plots  the  input  velocity  profiles  and  also  the  bottom  track 
on  a  Calcomp  plot  (Fig.  6).  They  may  be  plotted  in  range  increments  of  nautical  miles 
or  kilometers.  In  Fig.  6  the  three  profiles  are  at  0,  107.6,  and  1135.4  km,  which  ranges 
are  indicated  by  +  symbols  on  the  abscissa  axis.  The  total  plot  length  is  specified  to  give 
a  suitable  scale. 

Subroutine  RAYZDIST 

Subroutine  RAYZDIST  prints  out  a  ray  depth  distribution  (Fig.  7)  each  time  it  is 
called.  The  following  items  will  be  printed:  NRAY  =  number  of  ray,  NTO  -  number  of 
turnovers,  NTU  =  number  of  tumunders,  NSR  =  number  of  surface  reflections,  NBR  = 
nun. her  of  bottom  reflections,  DEPTH  =  current  depth  of  ray,  THETA  =  ray  angle  at 
the  point  in  degrees,  TIME  ■  travel  time  of  ray  in  seconds  to  this  range.  Hie  losses 
column  is  10  logio  SS,  and  is  initially 

10  logio  [(cos  0O)A0()]  +  SORLEV  -  beam  pattern. 

If  SORLEV  *  beam  pattern  =  0  dB,  and  A6q  *  1°,  then  losses  start  out  - 17.6  dB  for 
a  horizontal  ray.  In  the  plot  line,  B  is  the  bottom,  +  is  the  lower  vertex  depth,  *  is 
the  present  ray  position,  -  is  the  upper  vertex  and  S  is  the  surface. 
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Fig.  6  —  Col  comp  plot  cf  input  profiles  and  the 
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Fig.  7  (Continued)  —  Example  of  the  output  from  RAYZDIST  (fourth  of  four  pages) 
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Subroutine  CHANNEL 


Subroutine  CHANNEL  calculates  CM  (vertex  velocity)  from  ZR  (ray  dppth)  and  T 
(tangent  of  the  ray  angle)  and  then  finds  ZTO  (ray  turnover  depth)  and  ZTU  (ray  turn* 
under  depth).  The  entry  RCALC  then  calculates 


r  ztu 

R=J 

•'ZTO 


1 


tan  0 


dZ, 


where  R  is  the  cycle  length  of  the  ray,  which  is  used  for  the  type  III  intensity  calculations. 
The  entry  WDENS  then  calculates  the  probability  density  P{Z)  that  a  ray  will  be  found 
at  a  depth  2: 

1 


P(r)  = 

(tan  0)/R 

which  is  the  type  III  depth  distribution. 


Subroutine  VELCALC 

Subroutine  VELCALC  calculates  a  velocity  profile  at  each  selected  range  for  internal 
calculations  (not  a  profile  range  or  bottom  point)  using  the  information  in  the  common 
block  /TRIANG/. 


Subroutine  RAYPLOT 

Each  entry  to  RAYPLOT  plots  one  line  of  the  printer  plot.  In  addition  the  first 
entry  prints  the  heading  for  the  plot,  determines  which  rays  will  be  plotted,  and  sets  the 
scale.  NPand  ZMAX  are  used  only  on  the  first  entry.  Fig.  8  is  an  example  of  the 
printer  plot. 


Subroutine  PROFPLIT 

Subroutine  PROFPLIT  plots  both  the  input  and  interpolated  profiles  on  a  Calcomp 
plot.  They  may  be  plotted  in  nautical  miles  or  kilometers.  The  total  plot  length  is 
specified  in  inches.  The  bottom  track  is  also  plotted. 
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Fig.  8  —  Ray  plot 
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Subroutine  ITNPRINT 

Subroutine  ITNPRINT  print*  out  the  intensities.  If  receiver  depths  are  the  same  for 
all  intensity  calculations,  a  table  of  intensities  such  as  shown  in  Pig.  9  is  printed.  Other¬ 
wise  a  printer  plot  for  each  range  with  the  arrangement 


Type - > 

Depth  Intensity 


* 


is  printed. 
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a 

•147.; 

•132,7 

•1?U,0 

•  123,7 

•01,0 

20.000 

a 

•140. > 

-133.4 

•110.0 

•124,0 

•00.4 

20 . 0U0 

a 

•141.4 

•109.0 

•123,3 

•00,0 

30 . 000 

3 

•  00.0 

-00.7 

•09.3 

•04,6 

-04,0 

30.000 

a 

•1>0. * 

•132,0 

•119,4 

•122,0 

•00,4 

J1.000 

a 

•134,7 

•»!«,» 

•123.0 

•  191,9 

32,000 

a 

•1«0.2 

•134,1 

-114,* 

•124,0 

•  111,1 

33.000 

a 

•100.  V 

•145,0 

•121,0 

•  124,2 

•113,3 

34.000 

a 

-11C.U 

-134.4 

•123,0 

•  114.2 

•  114,3 

30,000 

3 

•100.0 

•00,3 

•04.0 

••9.9 

•09,6 

30.000 

a 

•1*4.0 

•130,3 

•in,) 

•114,9 

•02.0 

30.000 

a 

-140.0 

•105,7 

-121.4 

•117.0 

-04,0 

37.000 

a 

•100.4 

•IJ5.5 

•127,9 

•110,9 

-66,3 

30.000 

a 

•143.4 

-121.4 

•124.0 

•ut.. 

•00.6 

30.000 

a 

•124.1 

•124.1 

•110, • 

••»,! 

40,000 

3 

•101.* 

•00,0 

-04,4 

••0.0 

•00,2 

40.000 

a 

•1*3.1 

•124,4 

-181.4 

-,0., 

-06,3 

41.000 

a 

-104.0 

-104.3 

-00. • 

•70.3 

-••.4 

42,000 

a 

-102.3 

-101.7 

•  01,3 

•70.0 

•07, • 

43.000 

a 

•04.3 

•04,7 

•»».» 

•Sl.l 

-•2,3 

44.000 

a 

•  **.2 

•04.4 

•  04,3 

••0.0 

40.000 

3 

-102. 3 

•*P,4 

••6.3 

-06,7 

40.000 

a 

•07. 0 

•  *7  a 

•  02.0 

••9.2 

-03,0 

40.000 

a 

•  **.> 

-05,4 

•70,2 

••1.3 

•»j.» 

«7.0Q0 

a 

•0*.i 

-**.0 

-*J. 1 

••9.0 

-70,0 

40.000 

9 

-0*.* 

-00. a 

•03,3 

••1.6 

-70,0 

40.000 

a 

-100.1 

•100,7 

•01,4 

•ST. 7 

-•4.1 

*0.000 

3 

•102 .  V 

-00,0 

•  07,* 

•»«.« 

-•7,1 

>0,000 

-100.2 

•04,5 

*70.0 

•00.5 

•09,2 

>1.000 

a 

•  00. 7 

•05.7 

•  -9.J 

•00.0 

-00,6 

>2.000 

a 

-101.3 

•74,0 

•  04,3 

••6.7 

-M.l 

93,000 

a 

•101.2 

-70,? 

•  02,0 

•04,4 

-•7,5 

04,000 

a 

•100.0 

•05.0 

•  02,9 

•04,1 

-09.2 

>0.000 

3 

•103.4 

-01  ,3 

•00,0 

••4,0 

-07,0 

>0.000 

a 

-120.0 

-02.3 

•0>,1 

••6.4 

-«»,0 

50.000 

a 

-1"3.4 

•01  .1 

•09,2 

••6,7 

•06,0 

>7.000 

•> 

•■>.1 

•05,3 

•04,2 

••6,3 

-00.2 

00.000 

a 

•03. > 

•01.0 

•00,3 

•>01.J 

-04,  C 

00.000 

a 

•  00.4 

-03,0 

•*«,2 

•100,9 

•06,9 

>0.000 

3 

-103.9 

•01.7 

•  00,3 

••3.1 

-*7.» 

00.000 

a 

•110.0 

•03.0 

•07.1 

-07.0 

-03,0 

>1 .000 

a 

•110.1 

•04.0 

•07,0 

•01.1 

•00,0 

>2.000 

a 

•114.4 

•110,1 

•101,9 

•101.5 

•00,0 

03.000 

a 

•107.1 

•107,0 

•100,7 

•101.1 

•101,1 

04,000 

a 

•104.7 

•108,5 

•07.0 

•102.0 

•102,  • 

>0,000 

3 

•104.  J 

-02,0 

-00,7 

••7,0 

-••,3 

>0.000 

a 

-110.1 

•100  ,* 

•10>  ,0 

•00,1 

•  102,7 

>0.000 

a 

•120. V 

•114,5 

-113,7 

•100.2 

-100,0 

07.000 

a 

•140.4 

•124.1 

•122.0 

•120.9 

•101,9 

>0.000 

a 

-133,0 

•125,7 

•110,0 

-120,0 

•127,7 

>0.000 

a 

•130.3 

•123,3 

•122.2 

•130,9 

•110,1 

70,000 

3 

-100.1 

•02,4 

•90' 0 

-M.3 

-••.0 

70.  J00 

a 

•130.1 

•130,0 

•127,4 

•125,0 

•120,2 

71.000 

a 

-130.9 

•130.? 

•129,9 

•116,0 

•111,6 

72.000 

a 

-144.4 

-135,? 

•127,4 

•120,2 

•03.4 

73.000 

a 

-1*2.3 

•134,7 

•120,9 

•121.3 

-07,1 

74.000 

a 

-140.9 

•143,0 

•130,0 

•123,7 

70,000 

3 

-100.3 

•0?  ,  7 

•09,3 

-00.9 

-00,0 

70,000 

a 

•144.4 

•137.7 

•139.0 

•124,0 

-07,3 

70 ,000 

a 

•150.9 

•134.9 

-130,3 

•123.2 

••1,1 

77  .  000 

a 

-150.4 

•144,4 

•131,0 

•130.2 

•01.0 

70.000 

a 

-154.0 

-134.0 

•130,0 

••4.4 

-•2.0 

70 .000 

a 

-15*. v 

•141,0 

•130,0 

••9.7 

-07,7 

00.000 

3 

-10>. a 

-03,0 

•99.4 

•■0.4 

-•0.2 

00.000 

a 

•300.0 

•143,? 

•124,4 

••9,0 

•07.5 

>1.000 

a 

-300 . u 

•  100, 0 

•00,0 

-•3.9 

-07,4 

>2 . 000 

a 

-300. 0 

-I4f  ,5 

•9i.l 

-•«,? 

-00,5 

03.000 

a 

•171.1 

•124,4 

•40,4 

-•7.5 

-00,3 

>4.000 

0 

•111.1 

•111.1 

•  04,9 

-01.0 

-00.1 

Fig.  9  —  Example  of  an  output  from  ITNPRINT  (first  of  three  pages).  The  symbols 
that  the  subroutine  uses  in  the  second  column  are  R  for  type  I  random  phase  calculations, 
S  for  type  I  coherent  phase  calculations,  2  for  type  II  calculations,  and  3  for  type  III 
calculations. 
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•0.000 

•  ift*.  / 

•  •3,2 

•**,0 

••*.1 

•i*,0 

o*.ooft 

>111.1 

•■n.i 

•*o,o 

•03,3 

•9.009 

•10?.* 

■M,» 

•tl.t 

-•7,0 

•  ’  . 000 

•103.4 

•103.0 

•97, J 

•*!.* 

-•0,7 

•  1.000 

-104.0 

•1M,* 

-••.1 

•*7,0 

•00, 4 

•f .000 

•100.2 

•100.2 

••3,7 

••7.1 

•*1 .3 

•ft. 000 

•100.1 

••3.4 

••0,1 

••*.3 

•0t,7 

•0.000 

•1«9.0 

•100.0 

•V.i 

•I*.* 

•00,2 

•1.00ft 

•109.* 

•M,l 

•141. 0 

•*0,1 

•0.000 

•IftO.l 

•**,7 

••1.2 

•00,0 

•03,0 

•S.000 

•100.2 

-100.2 

•7t,e 

•00, > 

•9.000 

•100.1 

•101. 1 

•04.2 

**0.7 

•*9,» 

•0.000 

•100.9 

-*! .  7 

••0,3 

•1*. 4 

•00,0 

•0.000 

•100,0 

••!.« 

••  t.z 

•*0 .0 

•*?.* 

•0.000 

•109.0 

•  *1,0 

•11,4 

•T.OwO 

-00.2 

•0ft. • 

•9* « 7 

•*1.3 

•*?,9 

•1.000 

•101.1 

-«»,5 

•*0.1 

-*0. 2 

•*i,» 

•0.000 

•101.4 

-02,0 

•07,0 

•*0.0 

•*0  *  * 

100.000 

•100.0 

•91,* 

-•0.0 

•**.4 

•*0, 1 

109.000 

•11... 

•II,* 

••0,0 

•0*,0 

•*0,i 

100.000 

•112.0 

••7.4 

•*0 , 4 

•••.4 

-09,9 

100.000 

-107.0 

•*4.2 

-•0,1 

•tft.O 

•*0.3 

110.000 

•109.4 

•*1.0 

•Mil 

•04,0 

•*0,0 

110.000 

•100.2 

••3.3 

*•1,9 

•40.* 

-•0.0 

120.000 

•100.0 

••3.4 

•«l,l 

•40.3 

•*1.0 

120.000 

•107.2 

•*3 . 7 

••2.0 

•0* ,  7 

-•1.2 

120,000 

•157.0 

••! 

•♦*,2 

-00.9 

•*1  *  o 

110.000 

•♦9.9 

•*1 . 

••2,1 

•00.9 

-*l.» 

140.010 

••*.0 

•*».» 

••1,0 

••O.o 

•#1.9 

140.000 

•100.1 

-•2,2 

•*1,  f 

•00,0 

•*2,1 

100.001 

•100.1 

•  *f  ,9 

•  •2,0 

•*i.o 

•*2.1 

100.000 

•101.2 

•*2 ,9 

••2,7 

••lit 

•*2.4 

U0.0Q0 

•101,7 

••2.7 

••2  ,* 

•00.4 

1*0.000 

•101.* 

•*1 .1 

••2,3 

•00.* 

•02,7 

170,000 

•**.2 

••1.0 

-•2.3 

•ft. 4 

•*2 ,  • 

179.00ft 

•100.1 

•*2 ,  * 

•♦2,0 

•*!.* 

-•3.1 

110.000 

•101.0 

••0,4 

••3,1 

•*0.0 

••3.2 

109.000 

-101.4 

••1.0 

-•3.0 

•*li* 

-*3.« 

140.000 

•101.0 

••1,4 

••0,0 

•02.1 

••3,0 

199.000 

•101.* 

•*?.! 

••1.9 

•02.3 

-•3.9 

210.000 

•*7 , 0 

•**,* 

•  •1,0 

•02.5 

-•3.7 

200.000 

•*7 , 0 

•*2,7 

-•1,* 

••3,7 

209.000 

•  •♦.9 

-•3,0 

•  •2.0 

••4,7 

-•3.0 

210.000 

•100. l 

••3.1 

-•2,0 

•*3.0 

••0,0 

210.000 

•100.1 

•*3,3 

•*3 , 1 

•*1.2 

••0,1 

220.000 

•101.2 

-•3.0 

••3.9 

-•3,3 

-*o,2 

229.000 

•  ;«.i 

••!,• 

••1.9 

•*J.O 

-•4,0 

210.000 

•*4,2 

••2.3 

••3.0 

-•0,0 

lll.lll 

•**.i 

•♦4,4 

•*2.9 

•01,7 

-•0.9 

240,000 

•  •*.9 

••4,0 

••3.0 

•01.7 

•*0,4 

249.000 

•  *•.1 

•94,1 

••3.0 

•  00,0 

•#0,l 

200.000 

.MS 

•*4.T 

••0.0 

•00,1 

-00,0 

209.000 

•  00.0 

••4,3 

•Mil 

*00,3 

-•9,0 

200.000 

•  •0.9 

••4,4 

••3,9 

•04,0 

-•9.1 

209.00ft 

.MS 

•  *2,  ft 

••3,7 

•  04,9 

-•9,0 

270.000 

•  **  .2 

••1 , 7 

••3,* 

•  04,0 

•*9,2 

279,000 

•*S,0 

■*S,l 

-04.7 

•*9,3 

200.000 

.*♦.0 

••4.2 

••1.9 

•  04,0 

-•9.0 

209.000 

•100.0 

•*4,7 

•*? ,  7 

•09.0 

-•9.9 

290.000 

-100. 1 

•  •9,0 

••3,0 

•  09,1 

•*9,0 

2*9.000 

•100. 0 

•  •0,3 

••3,0 

•»».* 

-•9,7 

100.000 

•100.4 

•*J,ft 

•M.t 

•  09.3 

•*9 ,0 

100.000 

•100.4 

-*S,0 

••o,e 

•*9.3 

•*9,0 

109.000 

•100.7 

•  •4,4 

•M,l 

•09.3 

-•9.0 

110.000 

•100./ 

•M.7 

•Mil 

•99,4 

•*4,0 

119.000 

•100.9 

•  •4,0 

••0,0 

•  99,9 

•*0,1 

120.000 

•1  SB , • 

•to  ,* 

.*0,7 

•  *9.0 

129.000 

•  •0.4 

-M.» 

•to,* 

•  99,7 

-•9.0 

110.000 

•*♦.1 

••4,0 

•*9.1 

•99,* 

-•9.0 

119.000 

•100.1 

•*3,1 

••9,2 

-90,0 

-•9,7 

140.000 

•100.0 

•*0  ,9 

•*9,3 

•  90.0 

•*9  ,* 

349.000 

•100.* 

•*4,7 

.*9,2 

•  *0,1 

•*9 ,4 

300.00ft 

•101.1 

•*3,0 

•*9 ,0 

•90.2 

•*9.9 

309.000 

•101.2 

•*4,7 

.*9,0 

*90,2 

•*9,t 

100.000 

•101.4 

•  *9,0 

•*9,7 

•*0.2 

•*»,l 

900.000 

•101.9 

•  •4,9 

•  *9,l 

•*0.3 

•*0.2 

170.000 

•101.0 

•  •4,** 

•  *9  ,* 

••§ .  • 

-•0.3 

379.000 

•101. 1 

•*4,9 

.**.0 

•00.9 

-•0.0 

300.000 

•  •*.9 

•  *4  ,  ft 

••0.1 

•90,0 

•*0,» 

3«9 . 0 00 

•100.2 

•♦9,  ft 

•  *0, 2 

•  90.7 

390.000 

•100. a 

•  *9,f 

-•• » 2 

.*«.• 

••9,3 

399.000 

•101.0 

•  09.2 

•  *0,J 

•*0.0 

-•0,1 

400.000 

••*./ 

•  09,9 

.*0,0 

•  *0,* 

••0,9 

400.000 

•••./ 

••9,9 

.*0,0 

•*0,* 

•*0.9 

409.000 

•  *1.9 

•*9 , 7 

•  to, 9 

•  *7,0 

•to,? 

410.000 

•  •♦.2 

•*9  »• 

.**,9 

•  00, 2 

•*0,0 

410.000 

•  •7.1 

••9 ,  • 

•*0,0 

••0,0 

•*0.* 

420.000 

•  •0.1 

••0,1 

•  to,  7 

•  *0.2 

•*7, 0 

429.000 

•  •7.0 

••0,2 

•to.o 

•  *0.3 

•*7 . 1 

410.000 

•  •0.0 

-00,1 

•**,* 

•  *0,9 

•*7,1 

419.000 

•to.* 

•  •0,9 

•*0 , 2 

•*7 ,2 

440 . 00ft 

•  •7.4 

•M,» 

•  *7,0 

•90.7 

•*7,  ? 

449.000 

•  *2,| 

•*0 1 7 

•  *7,1 

•  90,* 

•*7,3 

490.000 

•  *3.9 

-•*,• 

•  *7,1 

•*7,0 

-•7,0 

499.000 

•  •9.2 

•*7,ft 

.*0,0 

•*7.1 

•*7.9 

400.000 

•  •0.1 

•  *7 ,  ft 

•  •7,0 

•*7.2 

•*7.0 

400.000 

•  •0.0 

•97,1 

•  ♦7,0 

•  *7 , 3 

•*7,0 

470.000 

•  •0.4 

•*7 , 2 

•♦7,0 

•*7,0 

-•7,7 

4/9.000 

•  •*.0 

•*7 , 2 

•  *7 ,0 

•  *7,0 

-•7,7 

4«0. 000 

•  **.i 

•*?.J 

.*7,0 

•  *7.9 

••7,0 

419.000 

•  •*.9 

••7,4 

•  *7 , 7 

•97.0 

•*7,0 

490. 000 

*•7.  j 

•*7,1 

•  *0, 7 

•  *7 , 3 

■*7 ,  • 

499.000 

•  *7.9 

•*7,7 

•*7,2 

•97,0 

-•0,0 

900.000 

•  •7.9 

•*T,4 

•  *7,0 

•  *7.7 

-07,0 

900.000 

•  97.9 

•*7 , 4 

.*7,4 

•97,7 

•  07, 4 
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536.006  3  •** 

910.006  <  *97 

919.601  1  >9? 

920.066  3  .93 

929.606  9  .9? 

939.666  3  .9 7 

939.606  3  •«« 

940.606  1  .It 

949.606  9  .9? 

990.066  3  *97 

999.666  3  .97 

990.666  3  .96 

996.606  3  *99 

970.606  1  *99 

979.666  l  -94 

960.000  3  .99 

969.006  I  *99 

990.966  1  *94 

999.106  I  *9» 

906.166  ^  .99 

906.600  3  >99 

909.000  3  *97 

910.006  3  -97 

919.006  3  .97 

926.006  3  .97 

629.060  I  *97 

930.000  3  *97 

619. 066  3  *97 

946,006  3  *9# 

949.606  3  *99 

990.606  I  *46 

699,066  3  *96 

996.666  3  -96 

699.606  3  *99 

970.000  3  *41 

979.666  3  *99 

990.999  3  *«« 

669.066  3  -«• 

696.606  3  .97 

949.606  I  .46 

700.000  3  *9» 

700.066  3  -4| 

709.666  '  .40 

710.666  i  -96 

719.666  3  *90 

720. MO  3  *91 

729.000  3  *99 

730.006  3  *49 

739.000  3  -49 

740.000  3  -49 

749.006  3  *96 

790.600  3  .49 

799.000  3  -41 

790.000  I  -99 

799.000  3  *90 

770.600  7  *40 

779,001  3  •  4| 

760.000  3  -94 

769.000  3  -99 

740,000  3  -44 

799.000  3  -9# 

600.000  3  *91 

600.006  3  -49 

609.000  3  .47 

610.000  I  -49 

619.000  3  .9| 

620.000  1  -4| 

629.000  3  -40 

630.000  3  -99 

639.000  I  -9fe 

640.000  3  -9I 

049.0  0  I  -99 

650. <00  I  -90 

699. 0U6  ^  - 9  u 

•90.000  7  -49 

699.000  3  -99 

670,000  I  -4# 

679.000  I  -44 

660.000  3  .99 

669.000  3  -41 

640.000  3  «4i 

099.000  3  -96 

900.000  3  -97 

400.000  I  -9/ 

409.000  3  -97 

410.000  I  -97 

419.000  I  -49 

920.000  3  -90 

929.000  3  -94 

930.000  I  -49 

939.000  3  -96 

640.000  7  .94 

649,000  7  -99 

950 .000  3  -99 

459.000  3  -49 

4*0.000  7  .90 

499.000  7  -97 

970.000  7  -97 

679.000  I  -47 

990.000  7  -9* 
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Fig.  9  —  Example  cf  an  output  from  ITNPRINT  (third  of  three  pages) 
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Subroutine  IVSRPLOT 

Subroutine  IVSRPLOT  plots  intensity  versus  range  (Fig.  10).  The  first  entry  prints 
the  heading,  chooses  the  correct  type  of  calculation,  and  then  plots  a  line  or  the  first 
range.  Each  succeeding  call  plots  just  a  line  for  another  range.  Only  one  type  may  be 
plotted  per  data  case. 


Subroutine  INTENSTY 

Subroutine  INTENSTY  calculates  all  inlensPies.  The  switches  ISCP,  IT1,  IT2,  and  IT3 
determine  what  is  calculated.  When  one  selects  coherent  phase  (ISCP  =  1)  one  must  also  select 
random  phase  (IT1  =  1).  Coherent  phase  intensity  takes  the  phase  of  the  ray  into  account  in 
the  calculations.  If  SL  is  a  function  of  the  random-phase  sound  level,  then  the  coherent  sound 
level  is  (J  6X*cos(P))2  +  (^  SL  :sin(P))2,  where  P  is  the  phase  angle.  To  get  each,  set  IT2  = 
1  for  type  II  calculations  and  IT3  =  1  for  type  III  calculations. 

The  only  caustic  correction  which  is  applied  to  type  I  calculations  is  a  ray-separation 
criterion:  if  two  rays  are  closer  together  than  0.001  meter  in  depth,  the  eigenray  for  these 
two  rays  is  thrown  out.  Type  II  and  Type  III  intensity  calculations  do  not  have  caustics. 


Subroutine  RECOVERY 

Subroutine  RECOVERY  has  two  entry  points:  DUMP  and  RESTART.  Its  function 
is  to  enable  one  to  restart  a  program.  DUMP  writes  all  the  core  locations  on  a  tape  when 
it  is  called,  and  RESTART  restores  core  to  its  previous  condition  when  it  is  called  by 
reading  the  tape  from  DUMP. 

! 

i 

Subroutine  RETRY 

Subroutine  RETRY  enables  one  to  restart  a  program  in  which  the  multiple  replace¬ 
ment  option  has  been  used  (as  was  discussed  for  card  II  in  the  Input  Description).  Its 
chief  function  is  to  read  any  profile  cards  which  have  not  yet  been  read  and  to  write 
them  on  logical  unit  6  for  subroutine  NEWPROF  to  read  when  required. 


Subroutine  CLOSEIOP 

The  function  of  subroutine  CLOSEIOP  is  to  alleviate  a  systems  problem  in  punching 
intensity  cards  when  using  RESTART.  Without  this  subroutine  the  cards  would  be  punched 
in  binary  instead  of  BCD  when  RESTART  is  called.  This  subroutine  might  not  be  re¬ 
quired  in  another  computer  system,  if  the  proper  moding  of  logical  units  is  accomplished 
automatically. 
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Fig.  10  —  Example  of  the  output  from  IVSRPLOT 
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Subroutine  BYEBYE 

Subroutine  BYEBYE  is  called  in  place  of  the  Fortran  statement  STOP  to  terminate 
the  program.  It  was  written  to  avoid  a  CDC3800  systems  problem  when  DUMP  is  called 
in  the  executive  program.  It  might  not  be  necessary  to  have  this  in  another  computer 
system,  in  which  case  the  STOP  statement  could  be  reinserted,  if  desired. 


DIFFERENT  INTENSITIES  IN  TRIMAIN 

In  subroutine  RAYZDIST  (ray  depth  distribution)  a  quantity  is  printed  titled  LOSSES 
(Fig.  6).  This  quantity  is  equal  to  10  logio  ( S ),  where  S  represents  all  the  losses  due  to 
bottom  interactions,  surface  interactions,  and  volume  attenuation.  Spreading  loss  is  not 
included  in  these  figures. 

In  subroutine  INTENSTY  a  quantity  is  printed  for  the  eigenray  printout  called  SL 
(DB).  If  we  let  SS  (/)  denote  the  quantity  called  S  in  RAYZDIST  for  the  current  ray  and 
SS  (/- 1)  denote  S  for  the  previous  ray,  then  we  let  SI  =  secant  (current  ray  angle)  [SS 
(7-1))  and  let  DS  *  secant  (previous  ray  angle)  (SS(/)-Sl] .  The  ray  depth  at  a  given  ^ 
point  may  be  identified  as  ZZ(I).  So  if  we  are  considering  ray  I,  then  Zl  *  ZZ{I- 1)  and' 
DZ  *  ZZ(I)  -  Zl.  If  ZR  is  the  receiver  depth,  then  we  let  F  *  (ZJt  -  Z1)/DZ.  We  let 
RMAX  be  the  range  to  this  point  in  meters.  Then  we  define  a  quantity  SL  “  (SI  +  F  DS)/ 
[RMAX  ABS  (DZ)] .  Thus  the  quantity  printed  for  SL(DB)  is  10  log10  (SL). 

The  third  parameter  which  is  printed  is  the  type  I  intensity  and  is  derived  in  sub¬ 
routine  INTENSTY.  This  set  consists  of  summing  all  the  eigenrays,  or  the  SL,  for  a  given 
receiver  and  range  point  and  then  computing 

N 

10  log  T]  SLi  (incoherent  or  random  phase  sum), 
i  -  1 

where  N  is  the  number  of  eigenrays  determined  for  this  point.  If  the  Lloyd’s  mirror 
switch  is  not  on,  the  final  intensity  value  can  be  arrived  at  as  stated,  but  if  the  Lloyd’s 
mirror  switch  is  on,  each  eigenray  is  nr  "’plied  by  a  factor  before  they  are  summed;  thus 
it  is  not  always  possible  to  sum  the  eigi.irays  as  printed  to  arrive  at  the  final  intensity. 

The  type  II  intensity  calculation  was  initially  proposed  [2]  using  a  Gaussian  distri¬ 
bution,  which  smears  a  ray  over  a  displaced  bundle  of  intensity.  DZBAR  is  a  size 
parameter  for  that  smearing  and  is  defined  by  DZBAR  “  SDZ/SW,  where  we  are  using 
the  mean  absolute  difference  between  ray  depths,  weighted  by  the  signal  strength  of  the 
ray,  such  that 


NRAY 
SW-  £ 
i  -  2 


NRAY 

5^  min  (SSj,  SSj 
i  -  2 


which  is  the  sum  of  the  weights,  and 
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NRAY 

SDZ  =  £  Wi  (ZZ>  -  ZZ>  -  1 ) 

i  =  2 

which  is  the  sum  of  the  weighted  mean  differences. 

If  DZBAR  is  less  than  a  wavelength,  then  DZBAR  is  set  equal  to  a  wavelength.  DZM  = 
ZB/Vb JRAY,  where  ZB  is  the  bottom  depth  and  NRAY  is  the  number  of  rays  traced.  If 
DZBAR  is  greater  than  DZM,  then  DZBAR  =  DZM.  TTiis  is  a  check  to  see  that  DZBAR 
is  not  a  large  fraction  of  the  bottom  depth.  If  100  rays  were  traced,  then  DZBAR  would 
never  be  larger  than  1/10  of  the  bottom  depth. 

If  RMAX  is  the  range  ot  this  point,  then  let  F  =  2.0*RMAX*DZBAR.  Let  ER  -  er 
(ZR/DZBAR)t  where  ZR  is  the  receiver  depth,  let  EB  *  e~  (ZB/DZBAR),  and  let  EZ  -  e~ 
(ZZ(/)/DZBAR),  Now  SL  =  B*secO  *SS(I)/F  where  B  is  the  volume  attenuation.  If  a  ray 
is  close  to  the  bottom,  it  does  not  get  its  full  share  of  the  intensity,  since  the  intensity  is 
distributed  exponentially  on  either  side  of  the  ray.  TTius,  it  is  necessary  to  renormalize 
the  distribution  by  saying  SL  =  SL/(1  -  .5 *((EBIEZ)  +  EZ)). 

We  now  want  to  calculate  the  quantity  A  =  e~  (ABS(ZZ{iy  ZR)I DZBAR),  which 
expression  is  always  less  than  1.0.  The  final  expression  for  each  ray  is  then  S{  =  SL*A. 

The  final  intensity  at  a  receiver  is  given  by  computing,  in  subroutine  ITNPRINT, 

N 

10  log  £  Si  . 
i  =  1 

In  calculating  the  Type  III  intensity  [2]  it  is  assumed  that  a  current  velo  '+v  profile 
prevails  to  represent  a  local  average  over  a  convergence  zone,  which  wipes  out  he  phase 
of  a  ray.  The  ray  turnover  and  tumunder  depths  are  calculated  for  each  ray,  and  then  the 
ray  cycle  length  is  computed.  Next  the  expression  SL  =  B*SS(I)I RM  \X  is  computed  to 
get  cylindrical  spreading.  If  a  given  receiver  is  between  the  tumunder  and  turnover  depths,, 
entry  WDENS  is  called,  which  returns  the  parameter  S,  the  signal  strength  parameter, 
which  represents  the  probability  density  that  the  ray  is  at  this  depth.  This  probability 
density  T  =  1/ABS(TAN0)  is  normalized  in  WDENS  by  dividing  by  the  ray  cycle  length. 

The  cylindrical  spreading  term  is  multiplied  by  signal-strength  parameter  S,  to  get  a  con¬ 
tribution  for  each  ray  which  is  then  summed  as 

N 

10  log  £  SLj  *  Si 
i  =  1 

to  arrive  at  the  final  va'ues. 
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EIGENRAY  OUTPUT  OPTION 

Hie  computer  coding  for  the  eigenray  output  option  appears  within  the  subroutine 
INTENSTY.  If  a  request  is  made  either  for  type  I  random  intensity  or  type  I  coherent 
intensity,  then  it  is  possibel  to  obtain  an  eigenray  output  (Fig.  11)  by  setting  column  25 
on  the  output  control  card  (card  group  V  in  Fig.  1 )  equal  to  1.  The  concept  of  an 
eigenray  may  be  envisioned  as  an  interpolated  ray  which  will  strike  a  receiver  and  is  found 
by  linearly  interpolating  between  two  rays  which  bracket  a  receiver.  For  certain  cases 
eigenrays  will  be  formed  from  rays  which  do  not  bracket  a  receiver.  This  is  caused 
primarily  by  consecutive  rays  which  have  different  histories;  in  this  case  there  is  some  ray 
between  the  two  existing  rays  which  would  give  an  eigenray  if  it  were  traced.  Thus  the 
program  extrapolates  a  value.  The  program  prefers  two  rays  with  the  same  history  which 
braci  et  a  receiver.  This  represents  an  IQUAL  of  1.  If  it  cannot  achieve  this,  if  the  next 
ray  history  is  different  from  the  current  ray  history,  if  the  previous  ray  history  is  the  same 
as  the  current  ray  history,  and  if  the  receiver  is  within  a  distance  of  1/2  the  ray  separation, 
a  forward  extrapolation  is  performed  and  IQUAL  *  2.  The  same  condition  may  happen 
on  the  first  two  rays  of  a  set,  and  in  this  condition  IQUAL  *  3.  If  an  interpolated  ray  is 
found  later,  the  IQUAL  *  3  ray  will  be  thrown  out,  and  the  IQUAL  *  1  ray  used.  This 
is  indicated  by  **  after  the  IQUAL  ■  1,  and  the  ray  which  is  replaced  is  the  last  ray  with 
a  3*  at  the  same  receiver  depth.  The  number  which  is  listed  for  NRAY  is  the  current  ray 
number,  and  this  forms  an  eigenray  in  conjunction  with  the  previous  ray.  The  NBR  column 
gives  the  number  of  bottom  reflections  for  this  ray.  The  NTU  column  is  the  number  of 
tumunders  for  this  ray.  NSR  gives  the  number  of  surface  reflections  and  NTO  gives  the 
number  of  turnovers.  RANGE  is  the  distance  in  meters  from  the  source  to  this  receiver. 
DEPTH  is  the  ray  depth  for  a  given  receiver  at  this  range.  THETA  is  an  interpolated  value 
for  the  ray  arrival  angle  at  the  receiver.  TIME  is  the  travel  time  in  seconds  to  this  receiver 
from  the  source  and  is  also  an  interpolated  value  between  the  travel  times  for  two  rays 
bracketing  a  receiver.  SL(DB)  is  discussed  in  the  proceeding  section  of  this  report. 
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700.0000 

•9.6028 

2*6.60291 

-106.5 

1 

IT 

0 

11 

0 

10 

370000 

360.0000 

6. *116 

2*9.38606 

-99.5 

2 

17 

0 

11 

u 

10 

370OJO 

700,0000 

6.1761 

2*9.3622) 

-99.5 

1 

21 

0 

7 

7 

0 

37000 J 

360.0000 

9, *660 

2*1.66*77 

-107.9 

1 

28 

u 

7 

7 

0 

370000 

700.0000 

6.91*3 

2*8.6268* 

-107.9 

1 

IT 

0 

22 

U 

21 

7*0000 

700.0000 

6.736* 

*98,7366$ 

-103.7 

2 

26 

0 

22 

n 

0 

1110000 

360.0000 

*.3020 

7*6.19729 

-113.1 

1 

26 

0 

22 

22 

0 

1110000 

700.0000 

*.*661 

7*6.16336 

-113.1 

1 

Fig.  11  —  Example  of  an  eigenray  printout 


THE  LLOYD’S  MIRROR  OPTION  FOR  RECEIVERS 

Some  examples  of  the  Lloyd’s  mirror  beam  pattern  are  presented  in  Fig.  12.  The 
receiver  depth  is  at  the  point  where  all  the  lines  converge  for  each  plot. 
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EREOltNCT  .  SO  t€RTZ  RECEIVER  DEPTH-  IB.P86  FREOUENCT  .  SO  HERTf  HECE  i  VER  DEPTH- 


FUaUEICT  ■  IOO  ECRTE  RECEIVER  DEPTH-  IfcSM  FREdUENCT  .  100  KRT/  HECE  IVER  DEPTH. 


Fig.  12  —  Examples  of  Lloyd’s  mirror  beam  patterns  for  receivers 
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The  computer  coding  for  the  Lloyd’s  mirror  option  for  receivers  appears  within  the 
subroutine  1NTENSTY.  The  switch  LLMR,  in  column  26  of  the  output  control  cards,  is 
a  receiver  Lloyd’s  mirror  switch.  When  the  switch  is  off  (0  or  blank),  the  old  intensity 
is  returned,  and  when  on  (nonzero),  the  beam  pattern 


2  sin2  (-^H—  sin  6 

\  X 


)■ 


where  z  is  the  depth,  is  used  for  type  I  random  phase,  type  I  coherent  phase,  Type  II,  and 
Type  III  intensity  calculations  for  all  receiver  depths.  For  Type  I  and  II  calculations, 

0  is  the  ray  ingle,  and  for  Type  III  calculations  Snell’s  law  is  used  to  calculate  the  ray 
nngle  at  the  receiver.  One  can  calculate  some  intensities  with  and  some  without  the  Lloyd’s 
mirror  by  specifying  them  on  different  output  control  cards. 


ADDITIONAL  INSTRUCTIONS  FOR  THE  RESTART  OPTION 

If  the  restart  option  is  desired,  a  tape  for  output  must  be  provided  and  a  backup  tape 
can  be  provided.  Logical  unit  15  is  the  primary  output  tape.  Logical  unit  16  is  the  back¬ 
up  output  tape.  Logical  unit  17  may  be  used  as  a  second  backup  tape,  but  this  is  option¬ 
al.  If  the  tape  on  logical  unit  15  was  bad  when  the  program  attempted  the  dump  and  it  had 
to  write  on  logical  unit  16  or  17,  then  that  tape  would  become  logical  unit  15  for  restart. 
Logical  units  16  and  17  may  be  omitted  if  you  are  sure  you  have  a  good  tape  on  logical 
unit  15.  The  control  deck  should  then  have  these  cards: 

79  EQUIP,  15  -  MT,  LO,**,  DA 
79  EQUIP,  16  =  MT,  LO,**,  DA  (optional) 

7 g  EQUIP,  17  *  MT,  LO,**,  DA  (optional) 

For  dumping  on  tape  the  job  request  form  should  be  as  follows: 


Logical 

Unit  No. 

Input 

Output 

Save 

Tape  No.  (if  not  specified,  tht 
Computation  Center  sells  you  one 
and  aligns  a  number) 

15 

□ 

B 

B 

Number  for  tape 

16  (Optional) 

□ 

KJ 

B 

Number  for  tape 

17  (Optional) 

□ 

B 

B 

Number  for  tape 

20  (Program  tape) 

B 

□ 

B 

573 

1  (Used  only  for  ray  tape) 

□ 

B 

B 

Number  for  tape 

41 


Mi 


B.  0.  ROBERTS 


In  addition  the  second  card  in  each  case  should  contain  the  word  DUMP  in  columns 
73  through  76  if  a  restart  capability  is  desired.  If  the  program  runs  out  of  time,  one 
may  restart  it  according  to  the  following  procedure. 

1.  Change  the  job  request  form  for  logical  units  15  and  1  as  follows: 


Logical 

Unit  No. 

Input 

Output 

Save 

Tape  No. 

15 

B 

B 

B 

Number  for  tape 

1 

B 

K) 

B 

Number  for  tape 

However,  the  output  block  for  logical  unit  15  is  checked  only  if  a  dump  is  desired 
again  if  the  program  runs  out  of  time,  and  the  input  block  for  logical  unit  1  is 
checked  only  if  the  ray  tape  is  being  restarted. 

2.  Hie  first  card  after  your  run  card  must  contain  RESTART  in  columns  1 
through  7.  If  a  dump  is  desired  again  if  the  program  aborts  because  of  lack  of  time, 
DUMP  is  entered  in  columns  9  through  12  of  the  same  card.  One  looks  through  the 
listing  and  determines  what  cards  were  read  last,  pulls  out  all  these  cards  and  places 
the  remaining  cards  behind  the  card  containing  the  word  RESTART.  If  the  multiple 
replacement  option  is  being  used,  the  profile  remaining  to  be  read  should  be  read  in 
from  the  case  in  which  LA  x  1.  For  the  next  case  all  cards  would  have  to  be  read  in 
again.  Also  the  run  must  have  progressed  at  least  one  range  increment  before  dump  can 
be  called.  Thus,  if  these  conditions  are  not  met,  the  entire  deck  must  be  resubmitted. 
Also,  if  the  last  data  card  read  was  an  end-of-file  card,  then  the  first  data  card  read 
must  be  the  restart  card  and  then  the  end-of-file  card  is  read.  If  multiple  replacement 
is  being  used,  one  should  have  the  restart  card  and  then  a  blank  card  followed  by  a 
card  with  the  word  START  in  columns  1  through  5,  followed  by  remaining  data.  This 
can  be  determined  by  looking  at  the  comment  which  is  printed  at  the  end  of  the  pro¬ 
gram.  Reference  7  is  a  more  complete  writeup  on  the  restart  option. 

CAUTIONS  TO  THE  USER 

The  following  are  some  cautions  to  the  user: 

•  If  you  have  six  receivers,  then  you  must  insert  a  blank  card  after  the  output 
control  card  containing  the  six  receivers. 

•  The  number  of  input  and  internally  generated  points  in  a  sound-speed  profile 
cannot  exceed  50.  The  number  of  internally  generated  points  can  be  reduced 
by  reading  in  profiles  with  common  depths. 

•  Do  not  read  in  the  second  speed-profile  at  a  range  less  than  the  second  bottom 
point;  otherwise  a  diagnostic  is  printed  and  program  aborts.  Thus  the  range 
to  your  second  bottom  point  should  equal  or  be  less  than  the  range  to  the 
second  profile. 
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•  The  source  depth  and  sound-speed  depth  for  any  profile  should  not  be  the  same; 
otherwise  a  diagnostic  is  printed  and  the  program  aborts.  To  correct  this  fault, 
change  the  source  depth  by  0.01  meter. 

•  The  first  bottom  point  must  be  at  range  zero. 

•  The  maximum  number  of  rays  which  may  be  traced  is  1000. 

•  If  the  program  runs  for  a  long  time  and  produces  no  results,  you  have  specified 
too  large  a  distance  between  bottom  points  or  output  values  and  the  program 

is  forced  to  set  up  long  thin  triangles.  In  this  case  there  is  difficulty  in  arriving 
at  the  proper  ray  intersections  with  the  triangles.  To  correct  this  condition, 
insert  either  additional  bottom  points  or  additional  output  at  shorter  range  in¬ 
crements. 


PROGRAM  TRIPLT 

Program  TRIPLT  performs  a  Calcomp  plot  of  the  ray  trajectories  (Fig.  13).  It  reads 
an  output  tape  from  the  main  program  and  plots  selected  rays  to  a  given  range.  Cubic 
splines  are  employed  to  give  the  proper  trajectories.  A  maximum  of  512  rays  and  a  max¬ 
imum  of  2000  range  increments  may  be  plotted.  A  portion  of  the  range  may  be  plotted 
by  specifying  the  number  of  records  (one  record  being  one  range  increment).  A  description 
of  the  input  follows. 

The  input  ray  tape  should  be  read  in  on  logical  unit  1.  Thus  the  first  equip  card 
should  be 


79  EQUIP,  1  =  MT,  density,  RO,  label. 

Logical  unit  2  should  be  equipped  for  the  disk  file  as  7g  EQUIP,  2  =  DF. 

Logical  unit  10,  the  plot  unit,  may  be  equipped  as  79  EQUIP,  10  -  PL  or  79  EQUIP, 
10  =  MT,  LO,  label,  DA  (to  write  an  output  tape  to  be  plotted  later). 

The  job  request  form  should  be  checked  as  follows: 
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Logical 

Unit  No. 

Input 

Output 

Sa\- 

Tape  Serial  No. 

1 

0 

□ 

0 

Input  Tape  No. 

2 

H 

□ 

□ 

DF 

10 

□ 

0 

0 

Output  Tape  No. 

Logical  unit  10  need  be  specified  only  if  writing  an  output  tape;  if  the  plot  is  to  be 
done  on  line,  the  7g  EQUIP,  10  =  PL  may  be  used  or  the  card  may  be  omitted.  Computer 
1  should  be  specified  on  the  job  request  form  also,  because  it  contains  the  plotter  package. 
The  data  deck  input  is  as  follows: 


First-card 

Columns 

Variable 

Meaning 

1-2 

ITNC 

Total  number  of  cases. 

Second-card 

Columns 

Variable 

Meaning 

1-8 

AL 

Plot  length  in  inches,  which  must 
be  <120.0. 

9-16 

ZMAX 

Maximum  depth  of  plot,  in  either 
feet  or  meters. 

17-20 

NRMAX 

Number  of  records  to  be  plotted. 

There  is  one  record  for  each  range 
increment  on  the  tape.  Plots  for  a 
portion  of  the  range  from  range 
ZERO  may  be  made  by  specifying 
the  number  of  records  to  that  point. 
To  plot  the  entire  range  a  number 
may  be  specified  which  is  larger  than 
the  actual  number  but  less  than  2001. 

21-25  IKNM  If  IKNM  <  O,  the  range  scale  will  be 

plotted  in  nautical  miles;  if  IKNM 
>  O,  the  range  scale  will  be  in 
kilometers. 

26-30  IFMC  If  IFMC  <  O,  the  depth  scale  will  be 

plotted  in  feet;  if  IFMC  >  O,  the 
depth  scale  will  be  plotted  in  meters. 


s. 

i 


* 

1. 
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Second-card 

Columns 

Variable 

31-35 

NFSK 

36-40 

ITTR 

41-45 

NSR1 

46-50 

NBR1 

51-60 

ALIM1 

Third -card 

Columns 
(If  ITTR  <  O) 

Variable 

1-80 

TITLE 

Fourth -card 

Columns 
(or  Third-card 
Columns  if 

ITTR  >  O) 

Variable 

1-4 

NRPLOT(l) 

5-8 

NRPLOT(2) 

Meaning 

Number  of  files  to  skip  on  the  tape 
before  plotting  this  case. 

If  ITTR  <  O,  a  title  card  is  read  to 
replace  the  title  on  the  tape;  if  ITTR 
>  O,  the  title  from  TRIMAIN  will  be 
used  for  the  title. 

Maximum  number  of  surface  hits  allow¬ 
able.  The  ray  will  be  terminated  at 
this  surface  hit.  If  this  is  left  blank, 
the  previous  limits  from  TRIMAIN 
will  be  used. 

Maximum  number  of  bottom  hits 
allowable,  analogous  to  NSR1. 

Maximum  dB  loss  allowed  per  ray, 
similar  to  NSR1  and  NBR1.  It  is  read 
in  as  a  positive  floating-point  number, 
such  as  200.0. 


Meaning 

Title  of  the  plot.  This  card  is  omitted 
if  ITTR  >  O  in  columns  36  through  40 
of  the  second  card;  if  this  card  is 
omitted,  the  fourth  card  becomes  the 
third  card. 


Meaning 

Number  of  the  first  ray  to  be  plotted, 
which  corresponds  to  the  number  of 
the  ray  in  the  program  TRIMAIN. 

Number  of  the  second  ray  to  be  plotted. 
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Fourth -card 
Columns 
(or  Third-card 
Columns  if 

ITTR  >  O)  Variable  Meaning 


76-80 


NRPLOT(20)  Number  of  the  20th  ray  to  be  plotted. 


Additional -card 

Columns  Variable  Meaning 


1-80  NRPLOT(N)  Numbers  of  the  rays  to  be  plotted,  con¬ 

tinued  20  per  card  until  the  desired 
number  N  is  reached. 


An  end  of  file  card  terminates  each  case.  The  cards  beginning  with  the  second  card  are 
repeated  ITNC  times  for  multiple  cases. 
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Appendix  A 

LISTING  OF  THE  PROGRAM 


.  4A 


*7/29/73 


TR 
TRIM 
TRfM 
TRf  H 
TRIM 


PR0GRA*  T  R  I  H  A  l  N  TR|M 

C  I  **  e  f j  s  I F9  N  JUKK(IO) ,  P1(10»,0R(10I.<*2I1B».STRCD<26,10I|  JNRC(IO) .  1NTTRIM 
1  (ifl>.IT(6,ic).lRTlirt).IR0(lfl),lSCPE0l»)  , 7 (? ,50 ) , V (2 ,9()  I . Tl(9 >  TRIM 
ECU  I  VALENCE  ( ISCP. ISfPFQ)  trim 

CS“M(5N  /mJBR?RS/  F5RLiB»lT(2gg),RPST<20())  TRIM 

CEmmPN  /INF0/  RSTaRT,Rwax,BMEGA,ATT, IPRAT,  tTN,  I  TN2, JTNJ,  |B!G,  TRIM 

1  ISC»MTi,|T2,!T3,!PBR.IFT!MS,lTRT,LTE»»iLTPP.LPIW.!ATT  TRIM 

Cfc“HpN  /PRSFIt/  »eNE.Ni,2i(58),Vi(5g),BTl.3,N?,72«9n)',  V2  (9o  I  •  IBRTC.  TRIM 
1 ! PPL  TRIM 

CShmPS  /lElGNESS/  LNPC.RCDIi00),9INT(«B0)  TRIM 

C£«m,?n  /PRS/  |PRPP,  IXNMfPLTL.RXi  IPCB.  irPR  TRIM 

DATA  (LTRT»  i ) , (LTER.41  )  ,  ( L TRP«4? ) , (LPIN-6R )  TRIM 

ce^es  /pattern/  sc, i trp .datd.sbrlEv  trim 

CliMHSN  /PIDEF/  Pl.CTP.TwePI  TRIM 

C6“M0N/LlMlTS/Rl.C«,R2  TRIM 

ce«M9N  / tle/  itjtle  h«i 

CE»«PN/ABC/PUNChD8  (16 >,  INCR.NRRS,NS»$,AL!M,  I  FT, IET1 
CEMH0N  /IFC/  IFE. IA, IB.  IP, ID, I S, LA 
C6-MPN  /RANST/  RThlJM,  1REC,  lFSK.SDS 

P|a4,«ATAMx.)  SIFT.g  lIFTi*))  I  IPC|»q  |TW8P  I  «P  I  *P  I  SDTR*iBB  , /P I 
.  READ  9*O.ITItlE»  1 0PT- I T I  TU6  3  *  WRITE  (jR)  ITJTLE  TRIM 

rewind  19  TR|m 

IF  (E«F,  «0)  195.  2  TRJM 

2  IF  (IDPT.ED.SmBESTART  )GB  TB  104  S  ot  TB  122  TRIM 

90C  FERMAT ( ,  0A8 )  TRIM 

135  If  (IFEtEC.ll  G0  TB  152  S  JFE«1  I  OS  TS  1  TRIM 

122  PRINT  901, ITJTLE  S  MSTART.0,0  SRBAX.0,0  *  NtPLT.B  TRIM 

901  FORMAT  <  *1H0RIZ0NTAL  GS-CIENT  RAT  TRACE  *,10A8> 

RE*D  9o2*SC,Fkwz, IATT,S0PLEV, I TBP , DATD, SLDR .  I*B8T,  IScR.NRECUR, 

1 IBFiTc,  iPFt, JPRPP, 1KNM,PLTL,NBRS,NSRS,ALIM,  I  A,  IB,  IP, |0, IS, Li, IIRT 
A  L  1  ■  A  L  I  M  s  SCS«SL) 

fSPl»10.»«(..1»SLCP)  JIFTAtJw.NE.O.OIALIMiPBwRri.O.Ot (•*LIM('iO.OI)TRJ 
9Q2  FSRHAt(F8,3,Fi.3. 1 1 ,  F5 . 2 , 1 1 , 2F5 , 2 , 7 1 1 , FB . 3 , 2 1 5 . F i 0 . 3 , 6 1 1 , IX , *6 1  TRI 

SPEGA  *2000 , *P 1 *FKf>Z  SIF  < AL I H , E8 , 0 , 0 ) AL I N*1 , OE-SO  S  S2*FKMZ**»  TRIM 
PRINT  903,SC.SPRLEV,FKHZ,  ITBP.OATD.NBRS.NSRS.AL., IA, IB,  IP, ID. IS, LATRIH 

1 , i up  T  trim 

901  FERmaTi.OSSuRCE  DEPTw*.FB.2,»  LEVEL*. F6.1,*  FREQ(KMZ)*,F6.3»»  BIATRIM 

lwPATTfePN  I?,3x,*anGLE**,F5i1,5X,*NRRSp*,I5',  5X,*NSRS**,|5,9X,*DI  TRIM 

2Ll“IT**,Fjo ,3»/,5X.*I A**.  Ii,9X,*IB>*. Ii,5X,*IP»*. Il,5X,»ID»*. It*  TRIM 

J5X,*IS»*.Jl,5X.*LA«*.ll,5X,*iePT**,AB>  TRIM 

If  (NRFCuR,GT,g.ANr,IBBTC,GT.o)SO*SO*«i.*.5*SD/637i22i.3)  TRIm 

*TT«o,ooo3o25*S2  *44 , *S2/(4lOO • «S2  I  TRIM 

I F  ( I  AT  T , EC  •  0  I  *TT»o,  «  IF  (NBRS.EO.Ol  NBRS*25oo  <  IVSR*0  TRIM 

PRINT  9o« , A  TT , SlDB  I  IF  (NSRS.EO.O)  NSRS*?500  TR{m 

904  FEBM*T ( •OV^lLhE  ATTEMJATISN*,F10 .6,  *  DB/kM,  SURFACE  l8SS*,F7,2,  ™tM 

1  •  U8 . • )  TRjM 

call  INITRAYS  S  D6  985  J«l,10  1R1(J>*0.0  SDR(U>*0,0  TRIM 

985  R2(J)*0.0  SIF( IAB|T ,NE  .0 )  G0  TB  .5  S  RR*ISCP  TRIM 

CAU  bRLTfiC(R«)  S l F  (LA,E0.1.BR,tB.E0;i,BR.IR.E0,3)  REWIND  9  TRIm 

If  (LA.EO.l.BR. IB.GE.2)  REwJnD  6  S  GB  TB  18  TRIM 

15  PRINT  905  TRIM 

Rbsl.EJO  TRIM 

905  FERWAT ( .OBSTT&M  ABSORBS  ALL  INCIDENT  SPUND  ENERGY*)  TRjM 

18  N«i  S I F  (lP,FU.0.AND.L*,EO.0.e».L*.EO;i>  LPC»6e  S I F ( IP ,EO. 1 ) LPC »4  TRJM 
20  If  (LPC .EO.0O ) RE AD(LPC,906)R1(N),DR (N),R2(N),  IC. ( I T (  f,N> , I *1 ,6 ) , JVSTRIM 

1R, IRD(N) , JPP,  1PT(N),IPRAY,(STPCD(I,N),I*1,6)  TRfM 
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.4*  07/28/73 

mi.PC.E0,  4)REaD<LPC>  R1(N),  DR  <N),  R2  <N)»IC. (!T(I ’,  N), 1*1,6), JVSTR1M 
1R«IRD(N),1RP.  lRT<N),lpRAV|ISTRCD(l,N),l»l,6)  TRIM 

!f (L4,E0.1> WRITE!  4)  Rl(N),DR(N),R2(N),lC,  <ITCf«M), I ■&.«*, JVSRTRSH 

l.iROCNMRP,  IRT<N)»l PR AV,lSTRCD(|,N), 1*1,6)  TRIh 

*0»  F8RMATI3F6.2. 12, nil ,1*,6FB,4)  TRIM 

1NT(N)»0 
06  22  1*1,9 

22  INT<n)*INTIN)*1ABS<IT(I,N>) 

17  (  I T (5 , N) , GT , q  )  I  PER* l T ( 5 , N ) 

17 ( INT(N) ,E0. o 1  Ql  TP  3n 

PRINT  «07,Rt(N),OR(NJ#R2(N), «IT(|,N), l.i,»* 

17 (D*(N) • L T , o . >  DR(N)*-l.*BRlN)/Ri(N) 

IM*6 

23  I7($TRCD(|H,N),GT,0,)  OB  TS  25 

24  IH*1H*1 

1 7  ( STHCD ( 1H,N) .GT.O,  )  GB  T9  26 
17 ( I W , U E . 1 )  26,24 
29  U*IH*1 

1H*IH*10 

I7(LPC.EQ,60,REAO  <IPC , 908, (STRCD! l , N, , 1 • IL . IH. 

17U.PC.E0,  4 | REaD  (LPC)  (STRCD(I,n!,1«1L.IH1 
I7(L*,E0.1)NRITE  (  4)  ( STRCD ( I , N 1 , I ■ 1 L . 1 H ) 

c  the  snitch  itjm  is  now  llmr,  the  llitds  mirrpr  switch  rep  all  trim 

C  RECEIVERS  0N  a  GIVEN  range  pan  card  trim 

907  78RMAT ( •OIUTPljT  RANGES*, 378, 2, 9H  ISCP, 12. 4m  t  T l , 1 2 , 4 W  1T2.12.4H  '"TRIM 

1 3  ,  1 2 , 9H  IPER.12.5H  LLM",12)  TRJM 

9q8  FORMAT ( i078 i 2  )  TRIM 

08  T8  23  TRIM 

26  JNRC ( N ) *  I M  TRIM 

PRINT  «0’|ISTRCD(l,N),t*l,IM>  TRIM 

17  (NRECUR.LE.O)  08  T0  29  TRIM 

09  31  I.l.IH  TRIM 

3l  STRCD  U.N^STRCDU.NIMl.w.S'STRCOd.Nl/esT^i.S)  TRIM 

90»  FeRMAT(*oRCD*,l0F9.2)  TRtM 

29  IF  (JVSR.EQ.q )  08  T8  27  TRIM 

PRINT  910 , JVSR  TRIM 

F0RMAT(*OINTENSITV  VERSUS  RANGE  PL0T  WILL  RE  MADE  F0R  TYPE*, 13)  TRIM 


TRIM 

TRIM 

TRIM 

TRIM 

TRIM 

TRIM 

TRIM 

TRiM 

TRiM 

TRIM 

TRIM 

TRIM 

TRiM 

TRiM 

TRiM 

TRIM 

TRIM 


910 


I7IIVSR.NE.0,  PRINT  911 

911  FORMAT ( 5M  •••.•CALTJPNT, 

I  VSR* JVSR 

NVsR«N 

27  IF ( IRP.EQ, 0)  G0  T8  28 
NTPLTiiS 

ZMAX*0 . 

DRPLTpl. 

RLPLT«1.E6 
PRINT  915 

28  17  (  I R  D ( N  > ,NE . 0 )  PRINT  912 
17 ( I R T (N) ,NE .0 )  PRINT  913 

915  format  (*ORAY  PlBT  WILL  BE  MADE*) 

912  F0RMAT(*oRAY  depth  DISTRIBUTION  WILL  BE  MADE*) 
9iJ  F0RMAT(*oR*Y  tape  WILL  BE  made*) 

G8  T0  4o 

30  IF (IRP.EQ.O)  G8  TO  33 
NTPLT*STRCD(1 ,N)*.l 
1 7  « NTPLT . UT , 1 )  NTPLT*l5 


TRIM 

8NUT  THE  L*ST  I  VS  R  PLBT  WILL  BF  MaDE*)TR1M 

TRIM 


57 

58 

59 

60 
*1 
62 

63 

64 

65 
<■6 

67 

68 

69 

70 
>1 

72 

73 

74 

75 

76 

77 

78 

79 

»0 

"1 

82 

es 

84 

85 

86 

87 

88 
69 

5! 

92 

93 
‘/4 

95 

96 

97 

98 

99 


TRIM 
TRiM 
TRiM 
TRIM  lOO 
TRIM  1P1 
TRIM  1  02 
TRIM  lr3 
TRIM  104 
TRIM  105 
TRIM  106 
TRIM  l P 7 
TRIM  1 0  8 
TRiM  109 
TRIM  110 
TRIM  111 
TRiM  ll2 


49 
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ZMX«S?RCC(2.M 

CflPLT»DR(N) 

RL5T*R?(N) 

RLPLTtRLST 
PRINT  915 

PR  t  NT  9l4|Rl(N)|DR(N)|R2(N) 

33  IF  ( 1RD(N>»!RT(M) .EC,0)  G9  T0  35 
PRINT  9i4|R1(N)«DR(N)«R2(N) 

9j4  FeRNAT(.05UTP(jT  RANGES*  i3F^q  ,4  > 
l  F ( I RD  <  N ) , NE . n )  PRINT 
1F<IRT»N),NE.0>  PRINT  913 
G6  T9  *0 
35  N*N.l 

40  IF ( I C , EO . 0 )  G6  T9  45 

N  *  N*1 

If  (N,GT. 10)41, 20 
4t  PRINT  42 

42  F6RMAT  (lhO,*NUHBfcR  BF  BUTPyT  CONTROL  CARDS  FXCEFDS  10,  PROGRAM 
1  ABORTED*) 

CALL  BTEBTE 

45  NR*N  J  If  (LA.EC.1.6R, IP.EOil)  REWIND  4 
JRT*0 
RMAXliO. 

D«1 . 0  S  Dl.DRPLT  S  CELTM.O.O  S  ICA.O  JDELTA.0,0 
09  47  I •  1 , NR 

If  ( DR( I ) ,LT . C>  D*  CR ( I )  *  If  (DRIJ),LT,D1>  Dl«nRll> 

If (R2(I).0T,RLST)  RLST*R2<I) 

If ( IT (2. 1 ) ,EO . 0 )  Ge  T8  97 
If  (R2(J).GT,RMAXi)  RMAX1l«R2<I) 

47  JRT* JRT« I RT ( I ) 

D*D/2 , 0 

CALL  IN  I  T 

CALL  NEwPR9f(2M) 

CALL  NERPR9F 
CALL  C9NNECT 
If (ZMAX.EO.O. )  ZMAXflh 
RPLT*1.E6 

If (NTPLT.EO.O)  G9  T8  49 
RPLT*DRPLT 

CALL  RAYPL0TINTPLT.ZMAX) 

49  If (jRT.EO.n)  GB  T8  5i 
CALL  RAyTAPE 
51  N0LD**1O 

J«0 

N  I  NT*i 

c  if  all  the  intensity  calculations  have  thf  same  rcds 

C  A  TABULAR  FORMAT  HILL  he  USED 

D8  55  1*1, NR 

If (INT(I), EO.fi)  88  TP  55 

If  < J.EQ.O)  J*T 

If (J.EO. I >  G©  T©  55 

If (JNRCl I),NE. JNRC(J))  G9  T8  54 

KtJNRCI I ) 

06  53  L*1|K 

IF (ABS(STRCD(L,I )-STPCO(L#J))  <QT,,i)  GB  T8  54 
53  C8NTINUE 


TRIM  113 
TRIM  114 
TRIM  1 15 
TRIM  116 
TRIM  117 
TRtM  118 
TRIM  il9 
TRIM  ]?0 
TRIM  i2l 
TRIM  i?2 
TRIM  123 
TRIM  124 
TRIM  125 
TRIM  128 
TRIM  127 
TRIM  1 28 
TRIM  i 29 
TRIM  1 30 
TRIM  iSl 
TRIM  1^2 
TRIM  l 33 
TRIM  .34 
TRIM  135 
TRIM  136 
TRIM  137 
TRIM  l 38 
TRIM  .39 
TRIM  140 


TRIM  1*3 
TRIM  1*4 
TRIM  1*5 
TRIM  1*6 
TRIM  1*7 
TRIM  148 
TRIM  1*9 
TRIM  1 50 
TRIM  1*1 
TRIM  152 
TRIM  i53 
TRIM  154 
TRIM  l55 
TRIM  156 
TRIM  197 
TRIM  158 
TRIM  159 
TRIM  1 6  0 


TRIH  1A3 
TRIM  164 
TR'.M  165 
TRIM  166 
TRIM  t67 
TRIM  l68 
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94 

99 
9» 

100 


103 


10B 


10’ 

109 


87/29/73 


G0  T 0  59 
NlNT»2 
00  T3  95 
C0NTJNUE 
RMAX*0. 

RN*1.E8 

D6  103  I  >1 « NR 

If  (Ri(l).LT,RN)  Ri,«Ri(I) 

cbntinue 

RST  ART  «RMAX 

RHAX«AMJN1( ,OO1»RTW0,RPlT,RN)»1O8O« 
RT*  ,  ogl* ( RMAX*1 . ) 

If  < RT , ST . RUSTED  > 

If  (  I0PT,NE,0HOUMP 
TlLTPiTUT 


G0  T0  140 

)  gs  re  io< 


T  I LT«T I MEUEFT  < 1 ) 

06LT.TILTP.TILT  • 

If  (06LT.LT, 0.0)  GB  T0  10B 
ICA«IC*»1 
f ICA.JCA 

D6LTAp06LTA*D6LT 
DELTM.DELTA/FICA 
R6R«(RLST.(RSTART/1000:0) )/0l 

T0TIME»RER*D6lTm»2,O 
T0TImm.T0TIME/«O-O 

If  ( T  |LT  ,LE  i  9o  . Q*DELTN7 AND  , TOT  IMS ,GE . 38 ,0*BELTM)  107‘,104 

if  ijrt.ne.q)  backspace  i  «  call  dump 

PRINT  ,05, T  I LT • Tf T I  MM 
F0RmATTikO.*PR0GRAm  ABORTED,  INSUFFICIENT  TUN  MmE,  TJmE  REMAInInTR 


TRIM 
TRIM 
TRiM 
TRIM 
TRIM 
TRIM 
TRIM 
TRIM 
TRjM 
TRIM 
TRIM 
TRiM 
M 
M 
M 
M 
M 

TRIM 
TRjM 
TRIM  30 


TRI 

TR 

TR 


1G»»,F10.3,»  SECONDS*, 5X, .ESTIMATED  TIME  T0  FINISH  RUN«*,F10,3. 

2*  MINUTES*) 

PRINT  lOli RTw0M 

101  F0RMAT  ( 1H0 , *REM0VE  data  DECK  TNR0UGH  PROFILE  AT  RANGE*, FIB  3,*  KMTR 
1  BEFORE  RESTARTING  CASE*,/) 

If  (  IFE.EC.l)  .'’BINT  10K 
If  (IS.EO.l.AND.IFE.FQ.'O)  PRINT  IK’ 

112  FORMAT  (1M0, .INSERT  BLANK  CARD  AFTER  RESTART  CARD,  FSLLSUED  BY  A  CTRIM 
lARO  WjTH  »0RD  START  IN  C0LUMS  i-«,  FOLLOWED  BY  REMAINING  DATA*,/)  TRIM 
jq6  FORMAT  ( 1 H o i ■ * NSERT  END  0F  FILE  CARD  AFTER  RESTART  CARD  BEFORE  RISTRf M 
1 T ART  1 NG  CASE*,/) 

If  (IFE.EQ.i)  G0  T6  m 
109  READ  900 ■ JUNK 

If  <E0f ,8q llll *10® 

HI  CALL  BTEBYE 
‘  If  ( I8PT.NF,0HflESTART  ) 

If  (I0PT.EQ.8HRESTART  ) 


104 


CALL  CLBSEJBP 


GB  TO  102 
CALL  RESTART  f 
PRINT  9o, 1 1  T I TLE  S  06  1,3  J»i»i0 

113  jUN«  ( j) *TT  I  Tj_E ( j >  S  HEAD  (197  JTITtE 
REWIND  19 

If  ( ITITLE(l) .EQ.SHRESTART  .AND.lS.EOTl.AND.IFE.EO.O)  CALL  RETRY 
I0PT1»I T I T L E ( 2  > 

)  I  OPT*  J0PT1  %  01  114  J«l,18 
(JRT.EO.O)  06  T0  j02  S  D6  t2£  J*t,IFSK 
D0  123  j*l , IREC 


If  (I0PT1.EQ.0H 
ITITLE(J)*JUNK(j) 

C*LL  SkIPMlE  <1> 

123  READ  (1) 

10?  CALL  ADVANCE  S I F ( RM AX*7l . L T  , RTW8 )  06  T0  118 


ll4 

121 


If 

S 


S  CALL  NIWPROF 


TRIM 

20( 

TRI 

IM 

20' 

TRIM 

21 

TRI 

M 

21 

TR  j 

M 

211 

TRI 

M 

21 

TR  i 

M 

2* 

TRI 

M 

TRI 

M 

•A 

TRi 

M 

2* 

TRl 

M 

21 

TRIM 

21 

TRI 

IM 

22 

TRI 

IN 

2ZI 

TR  j 

IM 

22: 

TR 

M 

22 

TRI 

IM 

22 
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4*  *7/2*1/73 

CAUL  C8NNSCT 

HC  IF ( R*  ,  Lt .  RPLt  )  08  f  0  119  *  CALL  RAY8L8t 

RRLT«RRlT*0RRl7 

IF(RRl,T.GT,RLPLT*tl)  RPLT«1,E6 

119  IFlRT.LT.RN)  08  T0  135 
08  ISO  l*liNR 
IF(RiU).QT,RT)  00  T8  i3n 
I F ( l NT ( I ) ,EQ , 0 )  00  T8  129 
im.EO.N0LD)  06  T6  120 
LNRC*JNRC( t ) 

06  117  J'l.LNRC 
1 1 7  RCD( J)»STRCD( J. 1 ) 

08  110  J»1»0 
i;0  ISCPEOI JUIT ( Ji I ) 

1 2 0  CALL  JNTENSTY 

CALL  1 TNPR I  NT ( N 1  NT  > 
im.EO.NVSR)  CALL  J  VSRPL6T  (  1  VSR ) 

N0LD'J 

139  IF(IRDU),NE.O)  C'.ll  RAYED  I  ST  (NTPLT) 

1 F (  ] RT ( I ) , NE . 0 )  CALL  RAYTAPE 
I F  t  DR ( I ) . L  T , 0 . )  00  T0  126 
R1 ( I  >|Rl ( { )*DR  ( I > 

06  T8  127 

12c  R1(1>«-R1(!)*DR(1) 

127  IF(Rl(I).GTtR2<|)*.001>  RKll*l.W 

130  CONTINUE 

139  IF(RT,OT.RB)  CALL  NWBRLT (RB  ) 

06  T8  100 

140  IF ( JRT • EQ i 0 )  G8  T8  190 
ENDFILE  ltrt 
ENDFILE  ltrt 
backspace  ltrt 

190  IF  (INCR.GT.i.AhD.iNCRiLE.lB!  191,193 

1 9 1  INCRCllNCR-1 

WRITE  (36,919)  ( PLNCMOP  ( ID  ,  II  •!  ,  I NCRC ) 

9i9  FORMAT  ( l» F9  . i ) 

193  IF  (IFE.EO.l)  G6  T9  19B 

IF  (LA.EO.l ,8R. IS.EQ.l)  06  T9  160 
197  READ  900.UUNK 

IF  (EeF.60)  i58,i57 

j • 0  IF  (LA.EO,l,BR.lS.EO,oTANO,LA,EO.o>  LPm»6q 
IF  (  IS.EQ.l )  LPM«6 

176  IF (LPM.EQ.60 JREAO  (lPM.1003)  NCUR,RB,TJ 

IFILPM.EQ,  6 1  READ  < LP« >  NCUR,RB,TI 

IF(E0F,LPY  )  i77.i78 

1 77  IF  (LA.EO.i)  ENDFILE  6 
REWIND  6 

G6  T9  158 

178  IL«1  9  IF  (LA.EO.l)  WRITE  (6)  NCUR.RB.TI 
« 79  I H» I L»A 

IF(LPM.E0,60)REA0(LPM,1900 )(7(2,I),V(2.I)it>IL.IH) 
IFILPM.EQ,  6  )  READ (LPM  )  ( 7 <2 , I ) . V (2 , I ) i I  *  I L . I M > 

IF(LA,E0.1 IWRjTg  (  «)  <2  (2  > 1 ) , V  (2 . 1 ) . I ■ I L i ! H ) 

I F ( V  (2 ,]M > . LE ,o . )  06  TO  l76 
IL*  I L • 9 
G6  TO  179 


TRIM  223 
tRIM  2?0 
TRIM  227 
TRIM  228 
TRIM  2*9 
TRIM  230 
TRIM  23i 
TRIM  232 
TRIM  2*3 
TRIM  234 
TRIM  239 
TRIM  236 
TRIM  237 
TRIM  230 
TRIM  239 
TRIM  240 
TRIM  241 
TRIM  242 
TRIM  2«3 
TRIM  244 
TRIM  249 
TRjM  246 
TRIM  2<7 
TRIM  240 
TRIM  249 
TRIM  290 
TRIM  291 
TRIM  292 
TRIM  293 
TRIM  294 
TRIM  299 
TRIM  296 
TRjM  297 
TRIM  290 
TRIM  299 
TRIM  2*0 
TRjM  261 
TRIM  262 
TRIM  263 
TRIM  2*4 
TRIM  2*9 
TRIM  2*6 
TRIM  267 
TRjM  260 
TRIM  2*9 
TRIM  270 
TRIM  271 
TRIM  272 
TRIM  2’3 
TRIM  }74 
TRtM  775 
TRIM  ;7i 
TRIM  277 
TRIM  278 
TRIM  2*9 
TRIM  2«0 
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If  03  F0RHATI  II, F7. 3.9A0) 


li88 


199 

161 

l9? 


FSH*<AT(i0Fe,4) 

lFPPitlFPR  %  IF  (IFPRiNE.l)  IPPP*1  S  IF  fIPFL.EQ.0)  01  TO  15* 

IF  ( ;FP91,E0.U.ANC,!PFL,EQ,1)  CALL  PPOFPLOT  Ij.O.SmI 

IF  <IPFL,6a,2,ANo,IFPRl,EO,8)  CALL  PPOFPlIT  (1. 0.5,11 

1F5.1  S  IFT1  ,IFTi#i  t  JF  ( ISiEO.O)  GO  T§  1 

PfcAO  900. JUNK  $  |F  (EPF, 60)  1,161 

IF  ( IPC0.NE.O)  CALL  STPPPLPT 

CAll  BVEflYE 

END 


TO 

M  >01 

TP 

m  >*> 

TP 

M  >03 

TP 

«  j»4 

TP 

M  >05 

TP 

N  >06 

TP 

H  >07 

TP 

H  ,00 

TP| 

M  »* 

TOl 

M  >»0 

■ 


■  t.  V>i.  * 


B.  0.  ROBERTS 


f. 

! 

f 


l 


5.4DS  TF  I  HA  1 N 

I  nesiT  trjmain 

PROGRAM  LENGTH  0<624 

ENTRY  POINTS  TRJMAJN  05572 
BLOCK  NAMES 

R 1 RR0RS  Q0621 

INFO  00024 

PR9FIL  00316 

10UCNESS  00765 

PRg  00006 

PATTERN  00004 

P I  DEE  00003 

LIMITS  00036 

TLE  00(112 

A8C  00026 

irr  000:7 

RANST  00004 

EXTERNAL  SymRSlS 

080ENTRY 

TNENO, 

02007111 
01210100 
0820 1 CT  > 

injtrays 

BRlTRD 

RYE8YE 

I  N  I  T 

NEwPRGT 

CONNECT 

R A  yPL  @  T 

BAYTAPE 

T I mELEET 

OLYP 

RESTART 

clcseisp 

RETRY 

SxipriLE 

ADVANCE 

INTENSTY 

itnfrint 

IVSRPL0T 

BAYZ5IST 

NnBRLT 

PRJFPL0T 

PR0FPL1T 

STRPPL0T 

P0.RT 

Yjsir 

atanf 
080IEESE 
et  t  . 

BSP. 

»£*. 

TSy, 

TSB. 

STh, 

STB. 
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ED 
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ciost 10* 


MOOflAM 

JOINT 

CLOSCIO* 

linotm 

06012 

E*T«T  JOINTS 

CLOU  10*  0000* 

-ATCBNAC 

SrMiOtS 

10*. 

CNT07 

CLOU  10* 

C«T 

10*. 

00000 

00002 

so 

1 

77777 

110(19  OSS 

smi2  cni 

2 

•••1 

s« 

0 

00000 

00003 

77 

2 

00000 

old* 

5»Vt»0 

12 

0 

*00000 

00004 

00 

0 

00000 

CLOSt 10*  OC7 

0 

oooos 

00 

0 

00000 

TT 

2 

0*000 

OST* 

l*IS»VC»9 

20 

0 

*00000 

00004 

S' 

\ 

•lllf? 

siu 

INI 

S**C12M 

15.1 

00007 

0» 

1 

000*3 

•  INS 

3S.1 

so 

0 

00000 

00010 

01 

0 

00031 

•  03 

31* 

0001  1 

03 

0 

mm 

03 

(*l 10*. 

ss 

1 

*00007 

IJ* 

*•2. 1 

rS 

0 

*00002 

UJ* 

SAVE  1 2 

[NO 

93/12/73  tD  00006  »*9f  NO.  1 

CIO*  1 


CIJ*  ? 
CI0»  J 
CIO*  * 
CTO*  S 

CIO*  » 

CIO*  T 

CIO*  » 

CIO*  0 
CIO*  10 
CIO*  II 

CIO*  1? 
CIO*  13 
CIO*  u 
cn»  is 
CIO*  1« 


1 


f 


55 


.«* 


B.  G.  ROBERTS 


06/04/73 


ana1  at  Hfisr 

ri"kMluN  r,TLF  (*),2lL««.90l»Vll<2,50) 
is  «.fcAC  l.  »c 

1  ft W“*  7  (AS) 

If  Ckl-F.ftO)  IS. 14 
14  IF  (  U.tiijfiM'lANT  )  f  id  TS  75 
CE  U  19 
lb  lO\»6C 

7e  IF  (tF)N.e.J,fO'*'EA:i  ((.Oft  .503  )  KCl.*  .  «U,  T  I  TLE 
IF  (toF  ,  L  FJ  \  )  77,  >0 
77  EM)F  lut  ft 
=  k  »  I 't  6 

r,£  Tt.  ni 

76  a*;  4  -RITE  («)  NCWR.R0. TITLE 

79  It-«a«4 

if  apv .t'j^oFftF*-  afN  .500  < 2 a i2.  n . v m2,  i ) . i* a. i«) 
-M'E  (  6)  l  7  a  I  2i  I  )  .  v  a  (  2.  I  )  «  I  »a.  I  M ) 

IF  (vaU.l^F.LE.O.)  CS  70  76 

!L«a«s 

0£  a  7 » 

9 C  0  r£«-A7 ( 10F ft , 4 ) 

7£3  t  C"»“AT  (11,07,3,9*0 
fc?  UfcTtFiS 
ff.D 


RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 

RETT 


F  ***Sr"»* 


I 
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•R8G»*m  l E NO T " 

6N»RV  PSlNTk  RfcThv 
EXTERNAL  Sy»8cilS 

T«ENC, 
OeSC I ct , 

6TT, 

«e», 

TSS 

STR, 

SL®. 

SU. 

0NS1N&U. 
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ICENT  hETRY 

0046 

0CJ40 
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Sl9R0l,TjNt  JMT«*T£ 

CI*fcNSlUN  V0P  i  «x  * 

C05«0N  /PaTIFRN/  bt.ITFP,i)ATt,S£»CfcV 

ce^en  /pjDfef/  pi .r** . ti>pp! 

CC^EN  /«ATi/  M»T,TGAM10f'0»#22<1000),bS<10UO>.TIMEI1000)l 
1  NCTM100C).PH»iE(iOCO> 

C£M-eN  /  I  f  C/  176<J*.!S.1P.  IC.IS.U 
NSAT«C 

ec«iocot 

PRINT  9yb 

909  ffiRRAT  J  •  u*PLt  GAPCC  0(,A*D  IC  Sl  PHASE  •) 

If  t  14.60,0,  ,C  .  t  «  .  L  *  ,EC  ,1  |HP,  U.fcO,?)  LPC«6Q 

If  < lA,eO,l.SR,|A.EU,3)  LPC*2 

10  If  (tpC.eO,60t<'FAO  (tfCiV(!0104PL:,G*«nuiDG*MD.IC,SL,PH 
If  ( LPC  i  e  G  ,  2>RPa'J  (  Lf  C  )  G*utCiG*Hpo,tKi*PiD,  IC.SL.PH 
If  CL*,6.,i>»flnt  '  2>  f AM.C,GaHOP,DGAHD, tC»Sl,PM 

PM  NT  9  0  6,G*“l.r,3*fDC.CG4HC,!C,Sl»PH 
9  09  f£R“AT  UhC,  Jf  10 , 4 1  19,  2P7.2  ! 

SL*10|*»(,l»(SL«Sfc«uEV)I 
If  f«l 

If  <ARS(&ri.r,*»tC),l.T,  ,001)  G£  T £  ?U 
if (\fi4'T1ta,c>  s#  f £  is 

\R4V*NP«V«1 

SS<NHA»J»0. 

15  *&i»C&AHi).GA"tC 

S£G«SJ  .tOG/[/TR) 

If  f  *0 

20  C»0G«LG*MO 

S«SJM8/UT») 

NR4T*nR«v#i 

If  (NS*v1r,T,iC&0)  n£  tb  ico 

T&*-(N»»T1«S/SCRT»i,.S.5) 

Z2(\«4»i«b0 
TJ(-6(NR*r  J»C, 

NCTS(Mf»r>«c 

PRASE INHAT )»Pp/flTH 
S5(NS*»)«SU.,5*4HS(b.b£G) 

If  «  Iff  iNEjO)  bS(‘-«4T.i)»SS!N«*T»l>»!>L».b»APS(S»S6G) 

Iff«l 

0G»G 

SEG»S 

If  (  (G  •  ,  0000001)  ,LT,  GA R£ 0  I  GS  TV  20 
If  < |C,Nt,0>  SC  Tw  10 
23  If ( ITtfPjEu.o)  G0  IE  JS 

U.»l 

2b  If-«It*l» 

If  (lA.BGgO.AAC.CA.feC.C.ER.UA.PC.l.eR.lA.feO.lI  LP  *60 
If  (lA,kit,2)  tPa7 

If(tP,Eu,60)»fcA0lLf  ,9C1)(NBP(I)iI«IUiIH) 

If(CP|feU,  7JSEA0UF  )  (VBPII J|I«IL»IH1 
If  <LA  jEy.XURlTfc)  7)  (  V6F  <  I  )  #  l  *  l  L  ,  I  h  ) 

PRINT  9u7, <  yPP( J ), I «JL, If ) 

907  f  CHRAT  I  •OVBP  •  , 29)5,1) 

If  CVhPI l w ) ,fcS,0,  1  G£  T£  27 

H.»U*2U 

GE  TB  29 


IN  I  T  1 
IN  I  T  2 
I M  T  3 
I  M  T  4 
INM  5 
IN|T  6 
IMT  7 

imt  e 

IMT  9 
IMT  1C 
IMT  11 
IMT  12 
IMT  13 
IMT  14 
IMT  15 
IMT  16 
IMT  17 
IN|T  18 
IMT  19 
IMT  20 
IMT  21 
IMT  22 
IMT  23 
IMT  24 
IMT  25 
IMT  26 
IMT  27 
IMT  28 
IMT  29 
IMT  30 
IMT  31 
IMT  32 
IMT  33 
IMT  34 
IMT  3b 
IMT  36 
IMT  37 
IMT  38 
IMT  39 
IMT  40 
IMT  41 
IMT  42 
IMT  43 
IMT  44 
IMT  45 
INIT  46 
IMT  47 
INIT  48 
IMT  49 
IMT  50 
IMT  51 
IMT  52 
INIT  53 
IMT  54 
IMT  55 
IMT  56 


58 
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27  1MJR.1 

Si  T9  28 

!F<vb»<|W),e3,0t>  OS  T!  27 

28  DC  29  !«!h,»c 

29  VdP(t*l)»VbP<  IM 
DC  81  I»1(Nhat 

C»ABS(DtR4ATAN(TGAMI))*tATC) 

S»D 

C*D(N 

D»  »i  ,  »D  )»VSP(N*1  >  ‘CnaF  <N*2  ) 

31  SS({)»Ss{J)»iC,»»(.l,fc»l»D) 

35  PRINT  vu2 

PRINT  9uJ,(1,TGa*MII1S«(!),PPA$£<1>,I«1,NRAV> 

ip  a*.to,i.es.iA,Ec(i,t/p.iA.Ec,3)  hemnd  2 

IP  U.A.fcQ,l,eh,  IA.GE.2)  fifcklKC  7 
P  6  *  j  R  N 

100  IP ( »C,6w,0)  SC  T 9  23 

RfcAC  9  0 4  1 1 C 
G£  T£  1 u 0 

900  PCRPAT  t ]r 10 , A  •  15,  2P  5 1 2  ) 

901  PCRRATUOM.l  ) 

902  fc«paT(«o  I n  1  t  1  a t  tin  gam**!,  signal  lEvfli  and  phase*//) 

903  P 6 R R A T  (  2<1K,  3)  15,5  )) 

904  P£RHA  T ( 18* ,12) 

END 


I  M  T 

57 

I  M  T 

56 

’NIT 

59 

IMT 

«0 

I  M  T 

61 

IMT 

62 

IMT 

63 

I  IT 

64 

IMT 

65 

IMT 

66 

IMT 

67 

IMT 

66 

IMT 

69 

IMT 

70 

IMT 

21 

INIT 

72 

I  N  I  T 

73 

IMT 

74 

INIT 

7b 

INIT 

76 

IMT 

77 

IMT 

78 

IMT 

79 

IMT 

80 

IMT 

61 
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I 


IMTPAYS 


PR8GPAH  LENGTH 

ENTRY  PfilNTS  InJTRaYS 

PUSCK  NAMES 

Pattern 

PiCfeE 

»avs 

1  F  C 

External  SYMbwLS 

TmENC, 

(3iCL7lU 

QlClOlOy 

Ol^GJlGu 

QbuCICT, 

SURTT 

SINE 

ATANE 

Pfcb, 

TSN, 

TSR, 

SIR, 

STB, 

OnSINuL , 


KENT  INITRAYS 

01026 

00220 

OC  004 
0C003 
1J561 
00007 


i 

t 


f 
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SldNFl,Ti'<fc  aKlT«Dl«b>  1  r 0*>>.eN  /41Dfcf/  PltDTR,  r»(9P| 

CEP^GN  /isra/  !UijP(2)iEmEC*i!CPP(17> 
rtHVtN  /MjWHfhS/  ►  E«l.*6Hl-T<200>#BPSTtaoO) 

CJMfc'.blbN  Pd  (60  )  .tC(!0).CTSTS(«00).«R(91,4)1BP(91.4),  JSM4), 

1  "HL <  53  > »  J  Cl <  60  >  ,1)Tm  (400) 

CE»-M(.N/*bc/PLr.CHUo  (le>,  iNCfiiMRS.NSRSiALlH,  I  FT,  JFTi 
CE^bN  />»€/  irfc,li,jj,JP,ICiJSiL* 

FLUjvALtH6  tin  ,  UT  «  TB  <561 )  )  ,  (C5,CTSTR(501>  l|  <  ICu»D7STR(45l) ) , 

1  <PbL*DTSTB(40in.  ( 1«»,DTSTR(J«7)), (RR.OTSTR),  (  J$cPiDTSTR(S94))« 

2  ( lfc.l/TbTH(j9b)) ,  (  J8iUTSta(394) ),  (K,DTSTR(3»3)  1 1 

3  (lL*uTbTHI492n,  (Ih,UTSTR(3«1))i  (!C.DTSTR<390»» 


EUUl V*Lt life 

t  r. ,  u  T  b  T  H  <  38V)  ),  (7, 

CTSTS (  368  )  ) , 

(F,D3STR( J87) ) , (PH|  ( 

ll*D 

1 

CT;,TK(^6o)).(UL6iCTSTR(3«S))ilR«UTbTR(384))» 

81*0 

2 

(Rf\ 

,uT5T«<3a,j1  ) 

»  ECUIVAlENet  (HP, 

l)TSTB  ( 183  >  ) 

BL*D 

CATA 

lu’bTm  j  > ,  i »« oi  ,t  co  )• 

biro 

* 

19. 

35 ,  i 

4Q  " 

52"  6(90 

■ ) , 

BIRD 

2 

19, 

25,  , 

36,. 

46,,  55m 

5(90, 

), 

BIRD 

i 

11. 

20,, 

26., 

35m  45m 

56" 

4(90 

. ) » 

BIRD 

4 

11. 

20,, 

30,, 

40,,  55,, 

5(90, 

>, 

bird 

5 

s. 

7,5. 

16,6. 

17.5,  19,, 

20,, 

21m 

22,5. 

2(90,2. 

bird 

1 

0. 

3,7, 

4,5. 

7(6,1, 

rlrd 

2 

0. 

2,4, 

4,6, 

6,5,  6(1, 

I. 

BIRO 

4 

0. 

4. . 

4,4, 

6,7,  8,5, 

5(10, 

>i 

Bird 

4 

2, 

3,2, 

7,7. 

9.6,  6(12 

,  ) . 

BIRD 

4  i 

5,2, 

12,  • 

12,6,  13,4, 

13,7, 

13,9, 

3(14, 

)  ) 

BL.RO 

EAT* 

<  ,T*,T*<  j  ) ,  I . 

401,600)1 

blro 

IS, 

30,. 

40  .  , 

50,,  55,, 

5(«0, 

), 

•  L*D 

2 

1». 

20,  . 

30,  • 

40"  50,, 

55,( 

4(90 

BLRO 

i 

13  i 

23,. 

36., 

45,,  52,5, 

5(90, 

>, 

blro 

4 

Um 

70., 

25,.  30  " 

34" 

4(90 

, )  > 

bl«o 

5 

2,5 

3,. 

7,5, 

15.,  17,5, 

20,, 

22,, 

3(90,  ) 

, 

BL*D 

i 

0, 

2,6, 

4.4. 

5,6,  6(6, 

I. 

blro 

2 

0. 

1 1  3  i 

4.6, 

7,.  8.5, 

5(9.), 

BLRO 

3 

3 1 

8.7. 

1C, 3,  6(11, 

>. 

blro 

4 

4. 

4,  f 

14,4. 

12,7,  13,7, 

5(14, 

), 

BLRO 

5 

C  i 

H  -  7  , 

10. . 

14,1.  15" 

15,8, 

4(16 

,  > 

) 

3L*D 

CATA 

(  y  T  h  T  H  (  J  )  ,  I  «  J  0 1  .  4  0  O  )  ■ 

Bl*D 

1 

19, 

25,  , 

36,, 

45,,  51" 

5(90, 

), 

blro 

2 

ie 

25,, 

36 ,  « 

45,,  55,, 

5(9fl, 

), 

bl*o 

i 

14, 

^  3  i » 

30  .  ■ 

4  C  "  5  0  M 

53" 

4(90 

>  ) , 

BL«0 

4 

i , 

1  *  1  1 

20.. 

22,5.  26,i 

5(90, 

), 

BL"0 

5 

2,5 

«,*. 

7,5. 

10,,  14,5. 

17,5, 

20, , 

23,, 

2(90,  J, 

bl*o 

1 

0, 

I.'. 

3,5, 

5,1,  6(6, 

), 

BLRO 

2 

0 , 

2,8, 

5,6. 

7,6,  6(9, 

), 

blro 

3 

4, 

5,  . 

7,5, 

9,4,  10,6, 

5(11, 

) , 

BLRO 

4 

3, 

6,1, 

12.2. 

13.2,  6(14 

,  )  i 

BLRO 

s 

9, 

U’m 

1?" 

13,9,  16,, 

17,1, 

17,7, 

3(16, 

)  ) 

bl«o 

C  ATA  ( 

(uT&iwf  n ,  i* 

201 ,3PC  )■ 

BL*D 

1 

ie,i 

23" 

3  0" 

40,,  50,, 

55,, 

4(90 

•  1 « 

BL«0 

2 

I'm 

2E,. 

75" 

30,,  35,. 

45,, 

55,, 

3(90, 

BL»D 

3 

13,i 

25,. 

3  0" 

35,,  4?, 5. 

«5m 

50,, 

3(90,  > 

« 

BL«D 

4 

9,i 

14,5, 

7  U  ,  , 

22,5,  27,, 

5(90, 

), 

bl«d 

5 

2  i  3  i 

4,5, 

7.5. 

10"  14,5, 

17,5, 

20,, 

23,. 

2(90,  >, 

BLRO 

1 

3  ,  . 

t  ,  , 

4  ,  . 

6 ,,  7,4, 

5(8,  ) 

, 

bl«o 

2 

3,i 

1,7, 

3.9. 

5.6,  6,6, 

6,8, 

4(10 

Blro 

3 

3m 

6,6, 

H,  . 

9,1,  10,4, 

10,7, 

4(11 

.  I. 

BLRO 

L»D 

L"D 

L«D 

LRO 

L«D 

CRD 

L«D 

C"0 

l*o 

1*0 

LRO 


61 


pi 


1 
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4 

7 . 1  0,i 

12,  , 

13,1. 

6(14 

•l*D 

5 

»,l  10,, 

1?.  , 

13,9. 

16,. 

17,1, 

17,7, 

3(16, 

) 

) 

•1*0 

C4T4  (lOTSTRI I), 1*101, 200)4 

IL»D 

4 

2 1 5 ,  10,, 

12,9, 

19,. 

20,. 

25,. 

30,, 

35,, 

40,, 

*0., 

•1*0 

i 

2,S  7,5, 

12,5, 

20,, 

25,, 

32,5, 

37,5, 

42,5, 

2(«0, 

>. 

•l*D 

3 

2.5|  >,, 

7,5, 

12.5* 

17,5, 

22,5, 

27,5, 

32.9, 

2(90, 1 

, 

•  l*D 

4 

2,5,  7,5, 

10,  • 

11,5, 

13,i 

15,, 

20,. 

24,, 

2(90, 

It 

•1*0 

5 

2,5,  5,. 

8,5, 

10,. 

12,5, 

15,, 

20,. 

22.5, 

27,9, 

90,. 

•1*0 

1 

3,5,  5,4, 

6  •  t 

6,6, 

5,7. 

8,6, 

* ,  4 1 

*.*• 

2(10, 

I. 

•1*0 

2 

6.5,  8,, 

9,5. 

11.. 

11,6. 

13  i , 

13,4, 

3(13 

•  1*0 

3 

9,4, 

11,5, 

14,. 

14,7, 

15,1, 

15,4, 

3(19 

•1*0 

4 

9,,  13,5, 

15,2, 

16,, 

16,6, 

17,, 

17,4, 

3(17 

•1*0 

5 

11.,  13,6, 

16,  , 

17,. 

16,1* 

18,6, 

1* ,  6 , 

1*,  *  * 

2(20, 

I  I 

•  160 

C4T*  (<«TbTH(I),I*l 

.100) 

■ 

•1*0 

1 

7,5,  11.. 

13,5, 

15,. 

17,5. 

20,. 

25,. 

27.5, 

2190, 

It 

•1*0 

2 

7,5,  If,, 

11,9, 

14, » 

15,. 

17,5, 

20, « 

25,, 

29,9, 

•O.t 

•1*0 

3 

7,5,  12,, 

15,, 

I6,i 

20., 

22,», 

25,, 

27,, 

*0m 

*0,, 

•1*0 

4 

7,5,  10,, 

14,9, 

17,5, 

20,. 

22,5, 

25,, 

28,, 

*0.. 

90,, 

•1*0 

5 

2,5,  9,5, 

0  i  • 

10,. 

15,. 

17,5, 

20,. 

23, , 

90,i 

90,, 

•1*0 

1 

6,5,  6,6, 

9,8. 

10,8. 

11,. 

11,7, 

12,7, 

3(13 

.  >• 

•1*0 

2 

7, ,  fl,8, 

10m 

10,6, 

11,1. 

11,*. 

12,5, 

13 , 4 , 

2(14, 

I. 

•1*0 

3 

8.,  n>. 

12,8. 

14,. 

14,8, 

15,4, 

15,8, 

3(16 

.  >• 

•1*0 

4 

9.,  U.. 

13,9. 

14,8, 

15,6, 

16,2. 

16,6, 

3(17 

.)• 

•1*0 

5 

10,,  13,, 

15,  . 

16 ,  i 

17,8, 

18,4, 

18,7, 

3(19 

.)  > 

•  160 

IF  (IFT,Cg,l) 

GS  Tt 

2 

•1*0 

5 

10 


ce  i  ,»i i 60o 

1  TTMl j)»uTSTHl-l 
!FT»1 

G  t  T  0  3 

2  CE  4  w. 1,600 

4  cist0(J)»uthi«>  »  ie*o 

3  FN«B>-t(.»/TWuPl  i  lF(f0,LT,3OOi)  06  T0  25 
IMFR,ni,1509,)  06  T«  10  t  JF  CFR ,  IT ,  750 ,  >  Gl  T0  9  »  !Q*301 
GE  T 6  2 U 

I  C  ■« 0  X  »  (,n  T£  ^0 

IF  C6F*(L*  •  (<750  i  >  Ob  T(?  15  5  10*101  *  IF  ( f  R ,  GT ,  6000  ,  >  10*1 


15 

20 

24 

25 
30 


40 


<1 

42 

43 

44 

45 

46 
4? 

48 

49 


GE  T0  ?u 
10*201 

CE  24  I  *51 1,600  *  CTSTKI I >«CTSTR(IOj 
10*10*1 
ce  jo  i»i, ^oc 

CTsi0<ii»o,  i  iscH.He 

IF  II«,tf),u,»(.C,l»1fcC,C.eR.04,eOll,9R,IJlE3l2)  LPB*60 
IF  <I»,tU,l.'-S,JJ,FC,3>  IPS »9 

I  b • l b ♦ 1  »  IF (LPb,tC,eO)«E*C  (1»B|9U0)»BL( IS),  ICL(  IB) 

lFd.Pb.tu,  v)se*n  (lfd)  rbli  19 > ,  ici<  ib) 

IF  ( L*  I  eu .  1 » I  TE  (  9)  R8l(IB>,lCtd'R>  I  IF  (RBLI  IB) )  41,41,42 

RbL  ( Ib ) *1  ,E  33 

IF  (  I CU ( IH) )  43,43,44 

ICO ( I b ) *U  »  06  TP  60 

IF  (  1  CL  < lS)-9)  46.46,45 

I  CL ( I b ) *  I  CL  1 1 b ) / lb 

IF ( (CL ( lHj-5)  60,60,47 

b«  I CH  I  o  )  *9  *  IF  (  iSMK) )  46,46,60 

ISW(K)*i  1  u*l 

Ib*lL*lV  »  lF(LP«.60,6C)RE»C  (1P6.901) (&R( I ,* ) , I»IL, IH) 


62 


1*0 

L*o 

1*0 

L»D 

1*0 

1*0 

0*0 

0*0 

1*0 

0*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

1*0 

L*D 

L«0 

1*0 

1*0 

1*0 

1*0 

1*0 

0*0 

1*0 

L*D 
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50 

51 

52 

53 

54 
59 


60 

61 

65 

70 

75 

76 

77 
80 
81 
82 

92 

93 

94 
99 

96 

99 

100 

900 

901 

902 

903 

904 

905 


IF  U’BiE8.V)HEA0  M.P  b ) 1 6  R  < t  ,K >  i  !*|l , IN)  BlRC 

IF  (L*  •  l;U ,  1 )  k.R  T  TE  (  9,  (BR(li»0,|»U..IN)  *  IL*IL«20  RU  R  D 

If (HR( IH,K  »  )  91«9l,49  BIRD 

IFiamiH.M)  91,51,93  RLRD 

IhijH.l  1  IF<|R>  32 1 5 2 i 90  BLRD 

|h»l  9URD 

Cl  94  I  *  I M, 90  BIRD 

BR(l«l,K)iBHUM,K)  3  U*1  1  IF  t  I  SCR  J  60,60,55  BLRD 

|R*lL*l*  3IF  {IUi6CiC<4NCiI>4,ECiO|6Ri^4,EOi1i6R,1J,EO,1)  i,RP*60  BIRD 

IF  ( | U , Gfc  ,  2  '  LpF»8*  !F(l.PP,EC,*0)RE*D  (LPP, 901 >  ( BP ( l , K  ) ,  I  ■  I L ,  l  M  )BURD 
IF  URP.E0.6)  RE*t  (LPP)  (IP 1 1  ,*) , 1»IL» 1*1  BtRD 

IF  ( 1 4 ,  fcQ ,  1 )  tiR  |  Tfc  (  y )  (8P(|,K),l*!t,|H)  S  IU»IL*20  RLRD 

IF  (|P|  l*t,K  >  J  65,60,59  RLRD 

IFIRBtUBI.LT, 1,E19 )  lit  TO  40  t  C6  65  K«6,9  RL*D 

IF ( IS*  (n«9 ) )  65,69,61  BLRD 

PRINT  902,  K  •*  PRINT  9 0 1 , <  1 , B*  1 1  *1 , K.5 ) , BP ( I *1 , K .5 ) ,  I • l E , 90 )  BLRD 

C6NT I NUt  %  PRINT  *00  S  DP  70  1«2,IB  *  RMRBL<1*1>  RLRD 

PRINT  904,R,RN,lCLU«l>  RLRD 

R*RN  3  hr  J  NT  S  05 • R , l C  L  <  I H  )  1  16*1  RLRD 

IC«ICLUE|  %  IfllC)  76,  76,10  RLRD 

D8  77  1  *1,200  9  BML T  < I J ■! ,  BL»D 

PPST  <  J ) *0 ,  3  08  T«  IOC  BLRD 

CS  19  1*1,200  *  T*£Tfi.*T4N( ,01*(I»1)>  *  K*IC-5  1  IF « K )  81,81,99  RLRD 
I L*10* I L  »  lF(CC(lL*9),CiE,T)  G8  TO  v3  BLRD 

IF  (CG(  lL.«b )  ,Gk  ,  T  7  CS  TO  «2  I  !L«Il*l  »  08  TO  82  RLRD 

CCB4CBUL*9)*(T.D0(  JL-9  n«<CB  <  IL»8I*DP(  IL-9:  )/(DO(  IL«6**DG(  IL«9) )  BLRD 
GO  TO  9*  BLRD 

0CB*CbUL*9)  BLRD 

PR  I *0 ,  *  GO  T£  9*  RLRD 

MT  1  F ■ T«N  1  CCR*6R(N«l,K)*F*(BR(N«2tK)aBR(N*l,K) )  t  PHI*0,  RLRD 

IF ( |SC*,Nt , 0  >  PHl*EP(N«l,K)*F*(eP(N*2,K).BP(N*l,K)>  Bt"D 

BPST ( J ) *PH l  RLRD 

BRLT  ( |  )  . . 1  •  t  CE  )  BLRD 

RfiiRBL  < (fc )  3  return  5  entry  NRRRLT  3  (E*  IE*i  RLR0 

I F 1 1 C* I LL I  I fc ) >  75,100,75  RL«D 

F6RM4T (n 8,4, 12 J  BLRD 

FkRR4T(i0F4,2 i  RLRD 

FBRRaU J8R0USER  StFPLlEC  8? T T 8 h  LOSS  TABLE  CLASS  ,I5/1X  BtRD 

1  3(2ROi,6X,2hCB, /X • 3HFRI , 103 I)  BLRD 

F(iRM4T(j(J3,rio,3.Fb,3,V*)>  bl»d 

F6RR4TI9H  FRffp.Ely.B.JR  T0,F10,2il6H  KH  RSTTBM  CLASS  >19)  RL»D 

F8HR4TOH  FrPR,F10,2,3R  T e ,  3 X  ,  2  3RfcN(J  «F  RUN  ROTtBM  CLASS, (5)  RL«D 

END  «LRD 


113 

114 

115 

116 

117 

118 
11? 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 
1*0 
1«1 

142 

143 
1*4 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 
*55 
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"RlTRt  06/04/73  EC  0 

1  CENT  tfRLTRD 


PRCGRAH  LENGTH 

03*03 

ENTRY 

PfclNTi 

t*  K  L  T  R  U 

07J/1 

‘  hRI.LT 

C3J71 

pleck 

N  A  Mfc  S 

P  1  rcF 

Of  G03 

IflFt 

0  f  C74 

M  I  RRff  RS 

00621 

4  dC 

0CC26 

iff 

OC007 

EXTERNAL  iYHHtlLi 


'UClOlOu 

TmENC, 

'UcoJioo 

CiOCTlU 
ObCUCT, 
A1  ANF 
T NR  i 
T6», 

STK, 

S  T  8  . 

OnSJN&L , 
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SIHRS^T |Nt  hSRO  SJ26  WIND  1 

cennes  /rays/  wray  ,  TCAM  100  0  >  iZZIIQOO  )  iSSIIOOO  >  .TIRE  <  1000  ) ,  WIND  2 

1  NC«U»T{1000>|',MSH1000  >  WIND  3 

cewwes  /in rj/  rstart.rpax , 8pega,att, jpray,  itn,  itn2i  itnj, i b t q «  wird  4 

1  lS5R|ITi,n2,lT3,|PER,iniWt.LTRT,UTER,tTRP.LPJNiMTT  W|RD  5 

C6MP8N  /TNUNG/  AP(100i2>,8P(iOQi2>,A|.(100>,BL(iOO)»ZZER8<100»,  WIND  * 

1  RZkRtf<;0CI.»A(lO0),ed(X00liSST(l00)iCCT(100J|NTRI  WORD  7 

C6MR0N  /%£/  STJT1.E  (1C)  W|RD  I 

C5MR0N/AHf /PtNCHDb  (16)i!NCR|NBRS«NbRbiALlM||FTtIFTl  W|RD  9 

C6RN0N  /RANST/  RDUW, |REC, |FSK,SCUM  W|RD  10 

DATA  (J8ll»aj777777777777777B)i(JENT»0)  ,(IFSK»»1>  W|RD  11 

ENTRY  1  (X I  f  WORD  12 

IF  IIFTi.fcO.O)  S3  T 0  2  WORD  l3 

jbtQ»^7/7777777777777B  I  IEM»0  WIND  14 

2  1  T  NASIJR  (  (SORT  (JBIG/4,  ))  HMD  U 

I TN2*  J  Tn»»2  WORD  16 

J  TNJi J  Tn2»|  TN  W|RD  17 

IBIQ>|Tn3«|TN  WIRD  11 

RETURN  WIRD  19 

ENTRY  Ray  TaRE  WIRD  20 

Zb*AL|N?R| ) *R 1 1 N  TR I ) «RWAX  WIRD  21 

|F  j I |N? , NE , 0  )  S3  T 0  1  W|RD  22 

WRITE  (bTRTlSTITUiAUYiNBRS'NSRSilTN  W|RD  23 

lENfi;  »  | RECal  »  |FSKa|FSK*l  W|RD  24 

1  WRITE  ( t TW T )  NRAY.RHAX,2Bi  (TSARI!)ililtNRAY)l(ZZ(l)i|aliNRAY)i  W|RO  19 

1  (Sl<  J  )  ,  I  ■  1  iNRAY  >  I  (  NC  ei»  N  T  (  |  M'liNRAY)  ,  (  T  J  ME  <  I  )  ,  lal.NRAY  )  ,  W|RD  24 

2  (PMAaEll), Jal.NRAV)  1  IRFC»|RfcC*l  WIRD  27 

RETURN  '  WIRD  21 

END  WIRD  29 
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ICfeNT 


PRBGRAM  UiNQTH 

00217 

ENTRY  MINTf 

IN1T 

00012 

RAVT/PE 

000*4 

BU8CK  NAMES 

W0ROSIZE 

00005 

RAYS 

13»il 

INP* 

00024 

trianq 

02241 

T„g 

00012 

ABC 

00026 

RANSY 

00004 

EXTERNA^  SYM8#LI 

> 

01510100 

TnENC, 

oeocicT, 

SdRTT 

STB  i 
ste, 

ONS | NQL | 

N0HDSIZE 


PO  0 
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SUBROUTINE  NEwPROF(ZHAX)  NEUP  l 

CBmmBN  /UF 1/  R$TART,RmAX, 8*104, ATT, IPRAY , ! Tn , I Tn2 , J Tn3 , I B I G ,  NEUP  2 

1  ISCR>ITl,IT2,!T3,tPER,lFTlMS,LTRT«LTERilTRP.LPtN,!ATT  NEUP  3 

CBMMBN  /PRIFIL/  »l,Nl,21(5B>,ViHO),P2.N?iZ2(5B'.V2(50)#  IBBTC,  IPfLNEuP  4 

COMMON/ INPUT/  PB«T(29n  > ,  ZBOT (290 ) , Z 1 1 (2 ,90 1 , V 1 1  <2 ,9n I , NN (2 > , ICBNI2NEUP  9 

1*»B>  NEWP  6 

COMMON  /TgE/STI TIE  do>  NEUP  7 

COMMON  /PRO/  IPROP. IkNm,PLTL,RM, |PC0, JFPR  NEWP  • 

OJNENIIBN  7|TlE(9) ,PW(3 ) , L I N  («i4>  NEWP  9 

COmmON/ABC/PUNCHDB  U6) ,  INCR.NBRS.NSRS.AIIh, !FT,  |FTj  NEUP  in 

COMMON  /IFC/  IF£,!4|!B. |K,!0. II.IA  NEuP  H 

COMMON  /RANST/  RSi I OUH • IDUMM.SDS  NEUP  12 


DATA  (NBPTiO),  (IFEBF.O)  ,(L!Nall4<lH  ) ) ,  ( 1 F  T  2  ■  0  ) ,  (  I  BH»0  I 


NEWP  13 


IFEtIFEBF  9|F  ( !FT<  ,E07  IFT2  )  GR  TB  992  SIBHa*  *  IFT2»IFTi  NEWP  i« 
99}  IF  (!FT1.iQl6,eR,iBH.EQll)  GB  TB  990  9  NBPT.O  SIFP8P«0  B|FE»]FE9FNEuP  ,9 
IBNal  t  S2*B  S  R2»0 . 0  S  Nl«fl  <  RHO.O  9  IFPRaO  NEUP  16 


DB  991  J.1,114 
991  l  lN( J)»1M 
996  IF(NOPT.OT.O)  OB  TB  20 

FIRST  ENTRY.  READ  IN  BOTTOM  TRACK 


NEWP  17 
NEWP  IB 
NEUP  19 
NEWP  20 


Il«l  S  IF  (|0, EQ. 0. AND. LA, EQ.O. OR.LA.EO.il  IP  I  MBS  IF  I  JO . 80 . 1 1 IP  1 .9NEWP 


I H»  I  L*4  NEWP  92 

IF(LPI.EO,60IREAD  <LPI  >900}  ( R88T ( | ) ,  Z|8T (M.I«Il,jH)  NEUP  23 

IF(LP1.E0,  9 )  READ  (LPP  (RBBTCp.ZBBTMI.I.IL.lu)  NEuP  24 

IF(LA,EQ.i)URITE  (  9)  (RBBT(1)iZRBT(!),1>1LiIH)  NEUP  *9 

I F ( RBBT ( IN ) , LE . n . I  GB  T|  3  i  ILp!L*9  I  06  TB  2  NEuP  29 

I  Ha  I  Ha.  |IF<RBiT(tM),LE,0.)  GB  TB  3  9  NSPTaJM  NEWP  ?7 

if  (lateo.i.br.id.eo.p  rewind  9  neup  zs 

PRINT  901 1 (RBBT ( I ) « ZBBT ( I ) • laliNBPT )  S  IF  (IBBTC.LE.O)  SB  TB  1  NEWP  29 

DB  9  I *1 1 NBPT  NEUP  30 

9  Z88T(l)aZBBT(I)a(i.a,9.ZBBT(I)/B37i22t  .31  NEUP  3l 

1  CBNTINUE  9  WRITE  <39,6111 , STITlI.  (R0BT(J>,ZBBT(J>,  J»i,NBPTI  NEuP  32 

6 FBRMAT  (iOAB,/, (.OFB.J) )  NEWP  33 

sit  FORMAT  (I0FB.3)  NEUP  34 

ZMAXaO,  SDB  4  (ali NBPT  NEUP  39 

IF(ZB|T(I),GT,ZMAX)  ZMAXaZBBT(l)  NEUP  H 

CBNTINUE  NEUP  37 

IBPTaO  9  |F  (IS.EQ.O.ANO.lA'EO.O.BR'lA.EO.n  LPN«6B  NEUP  39 

NN(2)lO  9  IF  ( IS.EO ,. I  UPNa6  NEUP  j9 

DB  99  I «1 » 2  NEWP  40 

DB  99  J*li 90  NEWP  41 

Z IL ( 1 1 J) *0 .0  NEUP  42 

V IL ( 1 1 J)*q  >o  NEWP  43 

99  1C6N( | t JltQ  NEUP  44 

NN  ( J  )  4(J  NEUP  49 

NlBaB  NEUP  4« 

D*  96  J«i,90  NEUP  47 

7;  ( J)«0  ■  0  NEl  P  4# 

U(J>t0,0  NEWP  *9 

22 ( J)|0 .0  NEUP  So 

96  V2 ( J )  |0 , 0  NEUP  9l 

ASSIGN  6  TB  IRET  NEUP  92 

OB  TB  70 


OB  TB  70  NEUP  93 

AT  70  JS  THE  READIN  AND  CONNECT  RBJTJNE.  RETURN  |S  TB  IRET  NEUP  94 
ASSIGN  20  TB  IRET  ‘  NEWP  99 

OB  T9  70  NEUP  96 
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20  !Bi»T»l8PT«l 

IF  C I BPT . LE . NBHT |  Q«  T8  21 
BBT*  ,001»R2*100  , 

If PA*1 
08  Tfl  22 

21  B8T  «R88T ( I BPT ) 

28T*Z89T( J8PT) 

If  (B«,LE,R8T.*NC,If88f  ,60.1,  A^D.RS, >4|.0. 01  !fM«l 

22  If fRBT.LE.RB)  G|  Te  25 

C  36 T  NEk  INPUT  RflariLE 

ASSJGN  23  T«  1 RgT 

oe  Tfl  ?o 

23  If  ( IBPT.6T,mbPT)  C9  T«  25 
I BPT*  J8PT«1 

ZBT«ZBT.(R».RttT).(?aT-2B8T( IBPTJ  >/(BBT.RI|T( IBPT)) 

C  THJS  IS  Twg  88TT9M  DEPTH  AT  PRBf | LE  RANOE 

BBT*PA 
25  Bi*R2 

Nl*N2 

C  HOVE  PROfllE  2  Ts  PPBritE  1 

D0  27  !*1,M2 

Zl ( I ) pZ2 ( 1 > 

27  Vl ( 1  )  f V2 {  1 ) 

B2  *1000  .  *RBT 
f A*(R«.RBT)/(RB.RA) 
f B*1 . «f  A 
N2*l 

29  If  (  IC9N(1,N2) .QT.ANIl) )  IC0N  ( 1 , N2  ) *NN (11 
If  (  I  C9N  ( 2  * N2 ) ,GT ,NN(2 ) )  IC*N  (2,N2)»NN(2) 

Z*rA*ZlL(i.  lCeMi,N2)}‘fB*ZIK2, 1C8N(2.N2)> 

v.r A. v  I L  < 1 . IC0^(i,N2))»FB*Vlt<2, IC8NC2.N2II 
If  (N2.GM.AND.Z.lT.Z?(N2.i)>  125,12* 

125  Z • Z2 ( N2-1 ) 

V*V2<N2-1) 

126  If  (Z.QT.ZBT*:.  ,  )  SI  T9  35 
Z2 (N2)*Z 

V2(N2)*V 

n2*n2*1 

If  f  N2,LE.MB)  00  TS  29 

C  EXTRAPOLATION  TO  B0TT0H 

Z2(N2)*ZBT 
H«N2-1 
31  H*M.l 

Z*72(H) 

If (ABS(Z-Z2(N2-l>).UT,l,E-5*Z)  G9  TO  3l 
v»V2<M) 

V2 ( N2  )  * V2 ( H )  *(ZBT.Z)*(v2(N2-l )  «V)/ I  Z2  (  N2«l  W  > 

G0  T0  4 q 

35  Z2(N2)»ZBT 

v2<N2)*v2<N2-l>*<Z8T-Z7(N2.1))*(V»v2<N2.1>)/(Z*Z2(N2.i>> 

C  REMOVE  DUPLICATE  P8 1  NTS 

40  m*2 

icr.o 

42  I "  (Z2(M),GT.Z2(M.1)«o;0001)  G8  T3  69 

i  UC*1 
N2*N2»1 


NlUP  97 
NEwP  5| 
NEWP  99 
NlHP  *0 
NlUP  *1 
NEUP  *2 
NEwP  61 
NlHP  *4 
NlHP  49 
NlHP  4* 
NEuP  ®7 
NlHP  *• 
NlHP  6« 
NEUP  70 
NlHP  71 
NEUP  72 
NlHP  73 
NEUP  74 
NEWP  7f 
NEUP  7* 
NEUP  77 
NEUP  7| 
NEuP  7t 
NEUP  so 
NEUP  Bi 
NEUP  *2 
NEUP  83 
NEUP  8« 
NEUP  89 
NEUP  8* 
NEuP  *7 
NEUP  88 
NlHP  81 
NlUP  90 
NlHP  91 
NEuP  92 
NlUP  93 
NEUP  94 
NEUP  99 
NEUP  9* 
NEuP  *7 
NEUP  9| 
NEuP  «9 
NEwP  i 0 0 
NEUP  101 
NEwP  102 
NEUP  103 
NEUP  a  04 
NEUP  109 
NEUP  l0« 
NlHP  107 
NEWP  108 
NEUP  109 
NEUP  *16 
NEUP  111 
NEUP  112 
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4  A 


P7/3P/73 


44 

49 


47 

46 


48 

7 

94 


>0 

*1 

79 


76 


77 


76 

79 


*1 


00  44  I(M,N2 

NEwR 

113 

7 

Z2(l  )aZ2(|*l) 

nEwr 

114 

f 

V2< I  )«V2( 1*1) 

NEWR 

119 

M8M*1 

nEwr 

116 

IflH.LE.N2)  08  T9  42 

nEwr 

117 

I 

If  (IDC.OT.O)  08  Te  40 

nEwR 

110 

f 

If  ( Z2 ( N2«l ) , EO ,0  > 0 )  SR  T0  46 

NEwr 

119 

{ 

n9»n2*1 

nEwr 

1*0 

i 

00  47  I«n9,90 

nEwR 

l2l 

l 

Z2  ( 1 ) *0  <  0 

nEwr 

1» 

\ 

V2(  I >«0,0 

NEwR 

123 

ijj 

If  ( !RR0R,EO.O .8R,  IP*8R,E0.1)  00  T®  94 

nEwR 

124 

PRINT  9fl2,R2 

newr 

129 

■» 

PRINT  9^4 

NEwr 

1?9 

i 

00  7  W'liNZ 

nEwR 

127 

f 

NV ■ V2 ( J ) »j499 ,9 

nEwR 

120 

i 

If  (NV.lT,4,8R.NV,0T.114)  80  T6  46 

NEwR 

1?9 

J 

i 

LlN(NV)«lH» 

nEwR 

l30 

PRINT  9x9,22 ( J ) , V2  ( J ) ,L IN 

NEwR 

l3l 

t 

LlN(NV)aiH 

NEWR 

132 

s 

00  T9  7 

NEWR 

133 

i 

PRINT  919,22 ( j),V2(J) 

NEwR 

1^4 

i 

C8NTINUE 

NEWR 

l39 

j 

If  ( IRf L . EQ  1 1 )  CALL  PHRf PL9T  <R0,N3,INPf> 

newr 

136 

If  ( IRf L • E 0 , 2 )  CALL  RRRfPLlT  (R0(N3,lNPF> 

nEwr 

{37 

If  (HS.3E,RBgT(2) ,9R, If£6f .EO.!)  RETURN  9  PRINT  279  9 

call  bverye  NEWR 

i  3  6 

i 

FERMAT  (9X,*PR9GRAW  ABRRTED,  TW0  SOUND  SPEED  PROFILER 

input  REFOREnEwR 

l39 

1 

.  SECOND  B 6 T T 0 M  POINT* ) 

NEWR 

140 

I f  <  NN (2 ) , *0, 0 )  09  T0  79  9  NBaNN ( 2  )  9  D0  7«  lal.NB 

nEwR 

141 

{ 

Z I L  ( a ,  I  > >ZIL(2 •  1  > 

nEwR 

i*2 

i 

V I L ( 1 « I )  *V IL<2  •  1  > 

NEwP 

{4$ 

RA.R0 

NEWR 

144 

1 

nn(d«nn(2) 

NEWR 

149 

* 

I F ( I F E 8F . EO , 8 )  06  T0  76 

NEwR 

146 

R0aR0*l.E6 

NEWR 

i47 

00  T0  02 

NEWR 

i40 

1 7 ( LPN • EQ, 60 ) RE AO  <U^N  ,903) 
IffLPN.EQ,  6 ) HEAD  C.PN) 
IFlEOF.LPN  )  77,76 
ifeofu  i  i fe f i FEsr 


NCUR.RB.TJTLE 
NCUR.RB,  TITLE 


RBaRAa,  ,  E  6  9  IF  (LA. ED,,)  6NDrjLE  6 

IE  (LA.E0|,|9H. I S i E  0  , « )  REWIND  6  9  Q|  T6  »g 

IL««  9  ir  (L*. 60.,)  WRITE  (6)  NCUR.R8, TITLE  S  RSiRB 

IH»*L»4 

IE(LRN.E0.60)REaD  (LRN  ,900  )  ( l  Jl  (2, 1 ) ,  VlL(2.  1)  ,  I«lt*,  l»> 


IE(uPN.EO,  6 ) HE  AD  <lpn> 
ifua  eq  dwrite  (  6> 

If (Vlt(2;jH).LE,0,)  08  T8  61 
IL» I L*9 
00  T9  79 
1  Ha  J  Mai 

If (VIL(2.|h).lE,0,)  08  T8  91 
NN ( 2 ) 4  1 H 
N3b  JM 
INRraO 

If  (  ! PB0P.EO . 0  >  06  T9  74 


<zii(2,t>.v:i<z’,!>.t*!i')iH> 

<2lL(2,l)iVIL(2.!)>lalLitH> 


l?3 

t!? 


NEWR  1.49 
NEwR  i9o 
NEwR  j9j 
nEwR  1.92 
NEwR  ' 
nEwR 
NEwR 
nEwR 
NEwR 
NEwR  i90 
NEwR  i59 
NEwR  160 
NEWR  i6i 
NEwR  162 
NEwR  1 63 
NEwR  164 
NEwP  i65 
nEwR  166 
NEwR  1*7 
NEWR  1*6 
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print  904,98, TITLE 
Print  9ia 
74  D6  28  Ill  In 

17  tVlL(2!l).LT11400.0:eR,VlL(2.!>.OT;i63fl,Ol  98.57 
58  PRINT  92o,RB,Z!L<2.  I  ).VJU2i  I  > 


NlWP  188 

NEWP  l T 0 
NEwP  171 
NBwP  172 
NEWP  i7j 


tin  fBRMATtjHj.SX.MNPLT  E»R8H  JN  PR87II.E  AT  RANGE* .  7'm  .4 ,9X ,  •  VALUE  ATNEWP  {*4 
1  DEPTM.prlc.3,.M,F10t3,.  H/3ECO  NlWP  i75 

CALL  BVEByF  nEwP  .78 

57  ir  (  Z IL  (?,!), NE , SOS )  QR  TS  257  8  PR  J  NT  298. Z II (2. 1 ) . RBI  CALL  BYIBVENEwP  177 
258  P8RHAT  (5X..PR8GRAH  AbRRTEO,  INPUT  PRflf  JLE  DEPTH* ,f 18 , S , IX , •»S8U*CN|WP  l78 
IE  DEPTH,  AT  RANGE*. rio:3.*  KH*)  N|WP  {7* 

257  If  (  l  .EQa i )  68  T8  i57  1 1 F  I ZI U <2 . 1 ) , IT . ZlL  (2.1-l»)  SB  T8  96  NlWP  iB* 

.57  If  < IPR0P,EO,  0 )  GS  TP  ?8  I NV* V I L ( 2 • t ) •, 455 .9  NEwP  .8, 

17  (NV,lT,4,8R.NV,GT.114J  06  T1  36  8  UIMNV*»1HV  NEwP  {81 

PRINT  915,  Z I L  <  2 . 1 1 .  Vll<2.  ll.LJN  NEwP  {8J 

L 1 N  (NV)«1H  NEWP  184 

GS  TS  28  NlWP  189 

38  PpINT  «15,Z1L<2,I),VILT2.1>  NlWP  184 

28  CSNTINUE  NEwP  {87 

If  INCUR. GT , 0 >  G8  TS  a*  nEwP  38B 

D0  80  1*1. I H  NlWP  1 8# 

V.LI2, 1  1 • V IL (2  • 1 1 • < 1 ,«7lL (2.1  )/837i22i.3>  NlWP  i90 

Bn  ZlL  (2.  I  )*ZIU2.  I  )•(]  .  «.5*2U(2i  I  )/637t22i  ,3)  NEwPi»i 

89  If  (IPfL.EQ.l)  call  PR8FPL8T  (RB.NJ.lNPf )  NlWP  j92 

If  I  I  Pf  L  .  EO .  2  )  CALL  PR8FPLIT  (PB.N3.lNPn  NEwP  {'*3 

17  I  NN(  1 )  ,E0 1 0  )  SB  TB  IRET,  (6,20'.2S)  NEwP  i*4 

!  I C9N < i . 1 ) »l  NEwP  t99 

ICON  C2»l )«l  NEwP  i98 

N4*2  NEWP  t97 

NB*2  NlWP  198 

MR»2  NlWP  199 

63  17  <Z|L(2|NJB) .E8.71L(liN|BM  38  T9  92  NEwP  2°0 

I7lNB.LE.NM2n  06  T®  84  NEwP  jOl 

IP»2  NEWP  2®2 

GS  T 0  88  NEWP  203 

I  I7lNA.LE.NMl))  G6  TP  85  NlWP  204 

IP*1  NlWP  205 

GS  t 0  88  NEWP  2°8 

I  OV«A*VtL<l.NA)-VlLU.NA.H  NEWP  207 

Cvla.ovma  nEwP  20® 

DVHAiQVMA  NfiwP  209 

I7fNA.6T.21  DVLA»VIL(1.NA-1).VIL(1.NA«2)  NEWP  210 

If (NA.LT.NMil)  DVLA*VlL(l.NA*3>.VJl(l,NA>  NEWP  211 

Dv*4L-«vlL<2.NB)-VtL<2,NR*i  1  NEWP  212 

DVLB*DVM0  N|WP  213 

DVM8«DVMB  NEWP  214 

I7INP.GT.2)  DvL8»ylL<2iN8-l)*VlL(2.NB*2)  NlWP  215 

1 7  ( NB  ,  *.T  ,  NM2  ))  PVHB»V!L<2»NR*j  )  •  V I L  ( 2  ■  NB )  NEwP  218 

PP(1)*A9S(ZJL(:,NA.X)-ZIL(2|NB)1  NEwP  2*7 

I7(0VL**DVPB.GE,8,.AND.DVMA*DVHB,GE,0,  >  PM(1»«PM(i)-25fl,  NEwP  218 

PN(2 >4ABS(ZlL(l.NA».2IL(2.NB.li  )  NEwP  219 

If (CVMA.nvLB.GE,0,.AND.DVHA*DV‘4B.GE,0;>  PH (2 1 »PM ( 2 ) .250 ,  NEwP  220 

PH(3)«ABS(ZlL(l, NA)«Z|L(2 .N8I)  NEWP  2*1 

If ( DVNA.DVPB.GE .0 .  .AND.Dvha*DV«B.GE,o;  >  PM ( 3 ) *PM ( 3 1 *290 ,  NEWP  222 

BP»PM(i)  NEWP  223 

IP«1  NEwP  224 
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e«  07  I «2 1  3 

NlWP 

III 

1 7 (pH ( I ) • SE  ,  Bp  )  01  T( 

i  07 

NlWa 

110 

IP*  1 

NlWP 

127 

0PaPM( J  ) 

NlWP 

III 

07 

CONTINUE 

NlWP 

l>« 

00 

S3  T0  (9O,91,92),I0 

NlWP 

>30 

*0 

IC9N<i»Nl0>*NA-« 

NlWP 

I>1 

IC0N(2*  Nil )  AN0 

NlWP 

1*2 

N0iM0*l 

NlWP 

233 

G0  TO  93 

NlWP 

>34 

•  1 

lC0N<i,Nl0>»NA 

NlWP 

HI 

I  C  9N  (  2  ,  MB  )»N0-j 

NlWP 

III 

N*»N**1 

NlWP 

an 

00  T0  93 

NlWP 

ail 

•2 

I CON ( 1 «  N  I  0  )  INA 

NlWP 

>30 

IC0N(2,NI0)«NB 

NlWP 

140 

N  A ■ N A*  1 

NlWP 

>n 

N0 ■ N0*1 

NlWP 

a42 

93 

17 (NA,OT , NN ( 1 ) ■ AND • N0 

,<JT,NN(2 

n  90  TO  tilT.CO, 

>0,23} 

NlWP 

>43 

N I0aN|0*l 

NlWP 

1*4 

17  ( N |0 , Lc  ,50  )  60  70 

03 

NlWP 

>41 

PRINT  9fl5 

NlWP 

>40 

CALL  HVE0YE 

NlWP 

>47 

90C 

700NAT(iore,4) 

NlWP 

l«l 

901 

709MAT(24MOL1STIN6  or 

BOTTOM 

TRACK/1N0,4X,B( AM 

R(KM)',Ax,4HI(M)  ,  4X)N|WP 

>40 

*0? 

1  //(1X»10^10>3>) 

F8»HAT(3nNnjNTER00LATED  PROFILE  At  RANGE. 7,0. n 

•2M  M//) 

NlWP 

NlWP 

>»o 

>91 

9„! 

F00MAT( 11,77.3.940) 

NlWP 

>12 

9„< 

F0RMAT<23hlINPUT  PROF 

1 LE  AT  RANGI,Fii ,3,3M  KM, 

OX, 9A0// ) 

NlWP 

>13 

«i* 

format  ( 3k , »DERTm  <M) 

•.EX.AVlLOCJTYa.^Oga.OX 

••1«7q*,0X', 

•l490*0X,N|WP 

|I4 

1»1<9o«i0X,«i5oO*'**i» 

l9l0a,0X 

••l920»«*X, *l93o» 

,0X,*^94ga, 

0x,at09gaNlWP 

>?» 

2,ix,*i960«,6x,*«97na', 

//) 

NlWP 

>31 

format  <ix,rn.«,Fio. 

NlWP 

>17 

909 

FORMAT  (  20MOT0O  MANY 

POINTS 

INTERPOLATED) 

NlWP 

|H 

END 

NlWP 

>10 
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OS  M*PR8F 

I0ENT  NBhPMF 


PR8GRAM  LENGTH 

03072 

ENTRY  PBlNTJ 

NGhPRIF 

09471 

§L(CK  names 

JNP8 

09024 

PRsrtt 

00316 

INPUT 

01442 

Tt« 

00012 

PR8 

00006 

ABC 

00026 

ire 

00007 

ranst 

00004 

EXTERNAL  SYHBBLS 

TMInD, 

QlOlOiOO 

QIODtCT i 

PR8FPL8T 

PR8FPUT 

BYEBYE 

QflOlFESr 

err, 

REw, 

TSH, 

TS8, 

STh. 

ST|. 

SL8. 

St!. 

ONSINQL, 
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ED  0 
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Mb  C’sSfcCr 

CS^GN  /PH'IPIL/  fl,\l,UHC  )  ,V1<5QI,R2,S2. 22 < SO ) , V? (50 M B8TC ,  I 
r£Hi-e\  /TMasG/  *t,(lC0i/)i?P(100»2l#*l,(lO0)|8L(l00i»Z7ERo;iO0>i 
1  HZfcm<10a>  (AAa00),Ed(10O)»SSTtlOO),CCT(iO0)iNTRJ 
'.A»\un 

m  8 1  ■  a 
!*oc»a 

to  MWJ»NTKt*i 

If  (NB,E'J,S2)  GP  Tn  1} 

if  (iA,)u,bo1i,pi».i»Alea,\i)  sc  ts  jo 

12  ‘UfeSS(Ni«{  )»U2 

ZZFSG(  m  7  «  l  )»72<  tH) 

AU  (Mm  j*21  (  N  A*1  I 

B(.  (NTH1  (KA*1)  )  /  («2-»l> 

A  A  (  «  T  4  1  )»;,/v2(.^H|««J 

«2*(l,;)U/Kl(NA)««2«l,DC/Vl(NA*l)»»:)/(2l(NA>.21(NA*l>) 

nH«<l,,)U/v2<Sa>«*2.1,DC/Vl(\*>*»?»Bf»(22(NB>.21{MA)»)/IR2««H 

*.  A  ■  \  A  •  1 
I *Dl*1 

G£  TG  4 u 

33  02ERetNi»l>«»l 

Z2E4P(M«I  >*211 M) 

AiptNTnl  >*2l(NA> 

RLUT«I>»Ul».*AW2U6»in/(fii«R2> 

AACMHl  )«1,/V1(nA)«»2 

B2»(l,3u/V2(‘s>4*2«t10C/V2(N9»l>*»2)/(Z2(N9>«Z2(NB*l>) 
0B*<liJu/’vlC\A>-»W«l,3C/V2<ft.B)*»2»B^»<2ltNA>-22(\9>>>/tRl-B2> 
o  »  S  B  •  1 

i*a:«3 

Gi  T  ".  4 u 

40  <J(jUTBl>i*li\  <5  J-<T(d2»42*dR  ••21*621 

If  (dH{M9J  >  »  G»  3d  41 

SaT«NT»»t>«H9/d9{NfSl> 

CCMNTWJ  )«9Z/dH(MBI) 

52  TG  4d 

41  CCT(».T«1>*1, 

5  9  T  ( I,  T  >4  l  )  a  I) , 

4J  »L<MHlJ«Al-<\I°Il.et(M<<l)«Kl 

T4M«SS!<MH!>/A,‘'4»l<CCT(MWI),i(b.lOU> 

t;-J(\T4i;?)«(31.(MTrtI).TANT)/(l,.Sl(MBJ>*TANT) 

R»BL ( \ 7* I *1 J 

°F<M4I,l)»<°*T4'JT)/U,-8«TAKT> 

API  M4I  ,  l  )«AP(NM  J  ,2>«C, 

IF  <  N  A  ,  U  !  •  M,p9,,M,lT,S2»  GP  7$  1C 

K  c  T  v,  B  S 

Fn!0 


C8SS 

l 

C6SS 

2 

C8SS 

3 

C8SS 

4 

C8SS 

3 

C8SS 

6 

C6SS 

7 

CtoNS 

a 

C6N.N 

9 

C8SS 

10 

C0NN 

11 

CONS 

12 

C6SS 

13 

CSSS 

14 

C6SS 

13 

C6SS 

16 

C6NN 

17 

C6SS 

18 

C6SS 

19 

C0NN 

20 

C6SS 

21 

cess 

22 

cess 

23 

cesN 

24 

C8NS 

23 

cess 

26 

cess 

27 

C6SS 

28 

CSSS 

29 

csss 

30 

cesN 

31 

CBSN 

32 

cess 

33 

cess 

34 

cess 

35 

cess 

36 

cess 

37 

cess 

38 

cess 

39 

cess 

40 

cess 

41 

cess 

42 

cess 

43 

cess 

44 

cess 

45 

cess 

46 

cess 

47 
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OS  CSNNfcCT 


l  CENT 

PPSGPA*  LENGTH  0C414 

ENTflV  Pi  I  NTS  CdNNECT  00003 
PUflCK  NAMES 

P4ljML  00316 

TuiANa  o?a«i 

EXT6HNAU  SY*8UIS 

1151021J 
3lOOA2ig 
'J«3C!Cf , 

Sy«Tf 

HAXlf 


CONNECT 
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ED  0 
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SUBR0UT1N£  POfcFPtet  (R!  ,N3,  JNPP)  pL8T 

C0MH0N  /PR0F1l/  Pi.Ni,?ilb0>,Vi(9o>.»2.N2.?2«50),V?{50),!B9TC,!Pri.PUIT 
DlHEN5l0N)(T(io),X(4)1XP(9o)*¥<*O)'pL7*RR*Y(294)»ZDePTH  ( ?»fi )  •  XBANGPLBT 

lE  <25(1 ) ,  XU(5o  >  '  YL  (4flo>  •  YP(10>  Pl-9T 

C0HM0N/  INPUT/  R89T(290  ),Za9T(25c»  ,2  JLt?.5{|) .  VIL(?,9ci),NNI2>i  IC8N(2PL8T 


1 » 5  n  > 

C0*H0N  /LlHlTS/S9(ljI.OR(lo)iR82(iol 
C0MH0N  /PR9/  IPR0P,IkNM,PLTL.Rh, JPCI, jrpR 
C0HM0N  /T^E/ST  J  Tu£  < l o  > 

C0mm0N/A0C/PUNChOB  (16) i I  NCR i NRRS »  NSRS , AL  I  h  . IFT,  I F  T 1 
CAT*  (  IPLSTiO ) . (  !ST«5) , ( If T2«0),  (  IRN»0 ) , ( l J* 0 ) 

IF  ( IPC0.EO.1  .XND.lPUBT.Efl.o.e'ilST.FB.i)  30  T8  i0P 
IF  (IPU0T.EQ.1)  51  T9  1  S  CAUL  PL0TS  ( PlTARR k Y , 294 , J ) 
,05  IF  (  IFT,. £0,  I F  T  j  >  G0  T9  95?  S|BH«0  S  IFTjUFTj 
$52  IF  ( IFTI ,EQ , 0  .  AND  .  I  j.EO.l ,9R . IRH.EO.l )  RETURN 
IbH,i  s  IPL0T.1  1  IPC0.1  $  I  ST*  0  *  !J«1 


PL9T 

PUiT 

P19T 

PL9T 

PL9T 

PL9T 

PL9T 

PL9T 

PL8T 

P1.9T 

PL9T 


r M *  MA*ir(R02(l),Re2<2),R02(S>iR82(«),R02(9>'.R82(6).Re2(T)iR02I6)iPL9T 


96 


C 

9? 


lR02(9),R02<ln)  )  $  101*5  *  *»o 

plbt 

K  *  K* ,  9 I F  <RM ,GT.H80T(K> >  ?0.2t 

PL8T 

Zh*X*ZH0T (1  ) 

pl*t 

C022  J*2.K 

PL8T 

ZMAX*  HAXlF(ZbST(J),ZHAX) 

PL8T 

IF  (ZMAX.Lf.  25(j .  fl  t  AND ,  ZNAX  ,  GT  ,  n.Q 

)  Zmax* 

25o,() 

PL8T 

IF  (ZMAx.LE,  500.0, AND, ZHAX.GT,  29j.O 

)  Zhax* 

903,0 

PLBT 

IF  (ZMAX.LE,  1000.0, AND, ZHAX.GT,  550-0 

)  Zmax* 

1000,0 

PL8T 

IF  (ZMAX.LE,  2005. 5  , AND(Z'<AX.GT, 1030.0 

l  Zmax* 

20lO,0 

PL8T 

IF  (ZNAX.UE,  4000. C, AND, ZHAX.GT. 2000.0 

)  Zhax* 

4500,0 

PL8T 

IF  (ZMAX.LE.  5000.0, AND, ZHAX.GT. 4000.0 

)  zhax* 

5000,0 

PL8T 

IF  (ZHAX.UE. 10000.0, AND, ZHAX.GT, 5000.0 

)  ZMAX»10500,5 

PLBT 

D0  23  Jsl.ll 

PLBT 

A*(ZHAX/1C,0)»(J-1) 

PLBT 

IF  (J.EQ.6)  CALL  SYMP0l  (-1,00,5.0,0.14 

,9HCEPTH 

(M), 90. 0,9) 

PLBT 

XL ( J)*0.0 

PLBT 

Y( JJi(ll-j) 

PLBT 

CALL  NUMBER ( -0 .80,Y(J),0.140,A,0,0,4HF5.0) 

PLBT 

CAll  LINE  (XL. Y.h.j,, 3,0.105,1) 

PLBT 

C@  26  J=1,250 

PLBT 

TL ( J  )  *0 ■ 0 

PLBT 

IF  (PLTL.GT, 156.0)  CALL  BYEBYE 

PLBT 

RSCALE*PLTL/RM 

PLBT 

NT“*AMlNl (PLTL*1  .  * « o .5 ) 

PLBT 

RT  *i  . 

PL6T 

rhan*Rh 

PL8T 

IF  (  iknm.gt.O)  rhamph  /l, 892 

PLBT 

NTsRMAN/RT 

plbt 

IF (NT, LE. NTH)  G0  T 0  97 

PLBT 

RT  *2 , *RT 

PLBT 

NT  sRMAN/RT 

PLIT 

IF (NT.LE.NTM)  G0  T0  97 

PLBT 

RT*2 ,5»RT 

plbt 

NT«RMAN/RT 

PLBT 

IF (NT.LE.NTM)  G0  TS  97 

PL8T 

RT  *2 . *RT 

PLBT 

G0  T 0  56 

PUT 

plot  surface  axis 

PLBT 

call  PL0T(O, ,  0  .  ,  3 ) 

PLBT 

1 

2 

3 

4 
9 
6 
7 

5 
9 

10 

11 

12 
13 

i! 

16 

17 

18 

t\ 

21 

22 

23 

24 
29 
26 
27 
26 

29 

30 

31 

32 

33 

34 
39 

36 

37 

38 

39 
<0 
«1 
«2 

43 

44 
49 
*6 

47 

48 

49 
90 
51 

92 

93 

94 
59 
96 
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XN»0. 

rSCALE1«rsCALE 

If  (IKNM.GT.O)  RSCALE1«1.8524R3C4LE 
Dx*RT»RSCAUEi 

R*e . 

I  f  »0 

58  CALL  PL0T(XN.Q. ,2) 

CALL  PL07{XN,-O.o5.2) 

RK*R 

CALL  NUMBER (XN-, 40,. 0, 19. 1. 4E*1, RK,  0. ,4Hf4.0) 

If  (R.Lt  .RM*N/2. )  OP  TO  59 
If (  IF.EO.l)  G0  T9  59 
If  (IRMM.EQ.8J  4,7 

7  CALL  $VMBGL(XN-fl.30i*0<4o«Oii4«l(jHRANQE  (NM>«0*»10> 

G0  rg  A 

4  CALL  S*MB®L(XN-0,J0|»0I40,O,14| 19HRAN0E  f km > . 0 . . 1 0 > 

8  CALL  SVm06L  (XN-7. 20, 10,15,0. 21, STITLE.O. *«0  > 

If  *1 

59  CALL  PL0T(XN, 0  ,  ,3 J 

if (r.ge.rmam  Q0  re  «0 

XM*XN«DX 
RtR.RT 
G£  T0  58 
60  ICP»0 

1  If  (IfPR.EQ.l)  G8  70  5 
X(3)«(R2/1000.0>*RSCALF 

If  (INPf.EQ.O)  X ( 3 ) »R I »R5CALE 
X ( l  )*X (3  >*1 ,5 

If  I  foPF  .  EQ  ,  1  )  GO  70  ?  5  Jf  (X(3)  .QT.PLTL)  60  TO  35 

00  ,5  J*,,M3 

l5  XP< j)«( <0i54VIL(2,.)-735.q>*0.1>*X<3> 

I C 1 • I Ul *1 
XL ( I D 1 ) >X ( 3  ) 

If  ( IOI.Gt.2)  G0  79  50 

CALL  SvmBCL  <X(1)«O,O2.1O,27,O,1O.16MVEL0C!TV  ( M/SEC ) . 0 , B . 16 ) 

7  X  *  q  ,  3 

50  N«2 

08  55  j  *  1 1 M 
XT(J)«X(1J.( J-lJ.Tx 
vP  t J ) ■ 1 0 . 02 
XM*1500 , 0 
DX«10 ,0 

pl*xm*( j-i j»rx 

If  ( I  0  I ■ EG ■ 1 )  CALL  MUMRER(X7(J)-0, 07, 18.10. ,lo9»Pt.O.O.<HF4,0) 
55  CGMTINUE 

If (X(3) .LE.PlTLJ  CALL  lime  {XT, TP, M, 1,13, 0,07,1) 

If  ( IMPF.EO.i >  Gf  70  2 

00  3  I  «1 ,  M3  SY<{)alQ,0«(l,0>(Ztu2i|)/ZKAX>> 

J  If  (7( t ) .LT.O.O)  T(  I  )»0,0 

If <X(3) .lE.PltL)  CAll  LINE  (XP,Y,N3|1,«2, 0,0,0) 

35  I  MPF  >1 
G£  T 0  5 

2  00  6  l  *  1 .  M2  JY(  l  )»10.0«(1.0-(Z2U)/ZMAX)  > 

6  If  (7(1  )  .  LT  ,  0  ,  0  )  7  ( I  )  »0 , 0 

ICP»I0P*1 

ZCEP7M( I  DP ) • V ( M2) 
xRanGE  (ICP)»X(3) 

9  If  (IfPR.10,0)  G9  7|  30 

CALL  LINE  (XRANGE, ZDEP7M.I0P, 1,1, 0.0,0) 

CALL  LINE  (XL,  Tl.IDJ,  l ,3 , o ,1*0 ’ *1 > 

CALL  PLOTS  ( o  >  0 )  *  CALL  PLOT  (PLTL*ie . o , 8 • . *3 >  5  IST«i 

30  RETURN 
END 


plot  57 
PLOT  50 
PLOT  9* 
PLOT  "O 
PLOT  81 
PLOT  62 
PLOT  63 
PLOT  64 
PLOT  69 
PLOT  60 
PLOT  67 
PLOT  60 
PLOT  69 
PLOT  70 
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PROGRAM  LENBTH 

03700 

ENTRY 

POINTS 

PR0FPL8T 

0?503 

RlIC* 

NAMgS 

PR0F  I L 

0"316 

INPUT 

01442 

LIMITS 

00036 

PR0 

00006 

TLE 

00012 

ABC 

00026 

ExTERMU  SYM00LS 


01010100 

Q80DICT, 

PU8TS 

SVMB9U 

NUMBER 

LINE 

SYEBYE 

PL0T 

MJN1F 

MAxir 


IDENT 


PRBFPL0T 
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su9R0utine  prbfput  <ni sn3« tNPr )  pl 
C6MM0N  /PR0FIL/  Rl > N1 » Zl(3fl ) , Vi(50 ) ,R2« N2, 72(50 ) , V2  (50 ) , t IBTC, tPflPl 
0lMENS!9NXT(10)t X(4),XP(9o>iV(9gl«PUTAPRAY(254),7DIPfH  (?5e ) , XRANOPL 
JE  <25n>,XL(50),YL(40c>.YP{iQ),xI  <100>  PL 

'  (2?0 >  *Zll(2#5g ) >  V IL  <2#9g ) «NN<2  >  * IC8NI2PL 


T 

T 

T 

T 

T 

T 

T 

T 

IT 

T 

T 

T 

T 

T 

T 

T 

T 


•2( 5 ) i RA2(6) »R82 ( 7 ) , RB2(0) ,PL 

PLfr 


)  ZMAX>  25g . g 
)  ZmAXb  508,8 
)  ZMAX»  1008,8 
ZHAX*  2000,0 


PLI 
PU 

PLi 

PL  I 

PL 

PUt  T 


•  oo » . vpciq 

i/JNPUT/  «86T(25o>iZB8T 

1,50)  '  PL 

CGMM8N  /1|PITS/RB,10),OR,10i,R92i10i  »L 

CSMM8N  /PR8/  (PROP,  JKNM,mLYL»RM  ,lPt8  ,IFPR  PL 

C6«M8N  /TgE/ST 1 TUE  (IQ  )  PL 

CSmhSN/ABC/PUNCHDB  ( 1 6 ) « INCR,NBRS,NSRS,AL1m, (FT , t F T1  PL 

DATA  (lPL«Tao),(!SYag),(!FT2*Bii(lRHag),(|J«o>  PL 

IF  (IPCe,EQ,i.ANO,!PL8T,EQ,o.5P,lST,E5.i)  88  T8  igg  PL 

IF  ( IPL0T , EO.l  )  01  T8  1  I  CALL  PLOTS  (PlTARRAY.254,3)  PL 

,08  IF  ( IFT, .60, 1FT2  >  G0  TR  95?  StBW«0  S  |rTg*!FTl  PL 

*52  IF  (IFTf.EQ.g. AND,  1  ,  ,E0 ,1 ,BR  .  IBM . 63,1)  RETURN  PL 

IBWil  s  I  PL  8  T  *1  1  lPCeal  UST.f  %  !j«l  PL 

RM«  MAXlF(RS2(l),R62(2)|R62(3)iRR2(4), 

IRy ? ( 9 ) , Rp2 ( 1 0  )  )  S  KaO  S]DI*0  S  ITL^O 
28  K*K«l 

IF  (RM.GT.R08T  IK))  20,21 

21  ZMAX«ZB0T(1) 

D022  U*2 ,  K 

22  ZMAX»  MAXlF(ZB0T(J),ZMAX) 

IF  (ZMAX.LE.  25o.O,*ND,ZMAX.GT,  q.q 

IF  (ZMAX.LE,  500.0  , AND, ZMAX.GT,  250,0 

IF  (ZMAX.LE,  1000,0, AND, ZMAX.GT,  500.0 

IF  (ZMAX.LE,  2000,0, AND, ZMAX.GT. 1100. 0 

IF  (ZMAX.LE,  4000.0, AND, ZMAX.GT, 2000,0  )  ZMAX-  4000,0 

IF  (ZMAX.LE,  5000.0, AND, ZMAX.Gr, 4000.0  )  ZMAXa  9000,0 

IF  (Zm;x.LE,  10000.0, AND, ZMAX.GT, 5000.0  )  ZMAXHOOOO.O 

00  25  J«1,11SAb(ZMAX/10,0>»<J*1) 

IF  (J.EO.e)  CALL  SYMR8L  (  •«  ,  40 ,5 , 0 , 0 ,  ,4 , 9HDEPTM  (M), *0,0,5) 

Y(j)M11-j>  IXl(,)'«8,4 

25  CALL  NUMBER^!. 20. Y(J). 0.1*0, 6,0.0, 4X79,0) 

CALL  LINE  (XL, Y, 11, 1,3, 0,105,1)  S  RSCALE'PL TL /RM  S  RjaRMaRSCALE 
IF  (RLTL.GT,.5A,0)  CALL  BYE8YE  5  DO  20  Ja..?50 

26  Yl<j>T*0.0525  S  JOP'O  PL  T 

CALC  SYMBOL  (1,02,10, 20,0, 10. 16HVEL8CITV  (M/SS'I>,0,0,16)  PL  T 

1  IF  (IFPR.EO.l)  G8  T0  5  S  X(3)a(R2/1000,0)«RSCALE  PL  T 

X ( , ) »X ( 3 ) «i i 0  S  X  <  2 ) **0 .94  PL  T 

X(4)«R2/1080 .0  PL  T 

IF  (IKNM.GT.O)  X(4)tX(4)/*.,e52  PL  T 

IF  (INPF.EO.O)  G6  T0  t,0  PL  T 

D0  15  Jtl,N2  PL  T 

15  XP  (  j  )  •  V2  (  J  )  PL  T 

CALL  SCALE  (XP.N2#1,8,:<M.DX,1,TX»  PL  T 

DO  3o  J*1 i N2  PL  T 

3q  XP( J)#XP(y )*X<1)  PL  T 

50  N»l,0/Tx*0.50  PL  T 

NaN.l  PL  T 

08  55  Js 1 , N  PL  T 

XT ( J ) aX ( i J • ( J-l ) aTX  PL  T 

YP ( J ) *10  <  02  PL  T 

PL«XM*( J-i)*DX  PL  T 

IF  (PL. GE,l6oo.O,*^D. PL, LE. 105(1,0)  PLlPl*l«00.8  PL  T 

IF  (PL. GE, 1500.0 .AND. PL, LE, 1600,0)  PLpPL*1500.0  PL  T 


PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL  t  T 


IT 

T 

T 

T 

T 
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17  (PL.GE,1400.0.ANO.PL,LE.1900,8>  PL«Pl-l«08,0 
59  CALL  NnMBER  (XT( j)-0, 07 , 10 , 18 » 8 , 07, PL i 8, ? , 4HP 2. 0 > 

CALL  LINE  (XT, YP.N, *,13,0,07,1) 

17  ( 1 N77 , EQ 1 1  )  09  79  2 
*0  !N77<1 
101*101*1 
Xl  ( IDI >*X (3 ) 

17  (X(3).0E,RJ/4.0.AND.|TL.EQ.O)  39,9 
39  1Tl*i 

17  (IKNM.EO,0)  CALL  SYMBOL  (RJ/2 . 0-0  ,  t.  .8 , 40',  0 . 14,  IOHRANOE 
10<10> 

17  (IKNH.07,0)  CALL  SYH8SL  (A  /2 . 0-0 .t . -0 , 40 , 0 . 14 ,  IOHRANOE 
10,10) 

CALL  SYMBIL  (RJ/2 ,o*-,®»10»28*0>1^» ST|TlE, 8 • 0 • *0 * 

01  T9  9 
2  09  6  |»1. N2 

Y(l)*X0.O*<l-0*<*2U>/7MAX))  *17(Y(ll.LTlB.0)  Y(1)*8i0 

XL  ( 1  )»X  (  3  ) 

9  CALL  NUMBER  (X(2>*X<1>.Y(1>,0.07,Z2<1),0.0,4HF4.0> 

CALL  LINE  <XL.Y,N2,1,3,o.o7,i) 

CALL  LINE  (XP,Y,N2.1,1.Q.q7i1> 

CALL  NUMBER  (X(3>«0,3oM»0<2**0<10**X(4),o,e>4Hr4,o) 

IDP*I0R«1 

Z0E7TH1 1  DP  > »  V ( N2 ) 

XRANOE  ( I  DP )  *X ( 3 ) 

17  (X(3) .QE|RJ/4.0,AND, I TL  i  EO 1 0  )  49,9 
49  ITL*i 

17  (IKNM.EO.O)  CALL  SYMBOL  (RJ/2 , 0 »0 . 6 , .0 ,  «D , 0 . 14 ,  IOHRANOE 

l?7l?IKNM.OT,0)  CALL  SYMBOL  (RJ/2 ,0*0  •* > *0 ,40*Q -l4 • IOHRANOE 
10*10) 

CALL  SYHBOL  (RJ/2.o*0.6*10-20*0.14*StI7LE,o.o>4®> 

9  17  lifPR.EO.Oi  00  78130 

CALL  LINE  ,XRANGE,7DEPTH. 10P, 1,1. 0,0,0) 

CALL  LINE  ( X-YANGE,  YL,  l  OP, 1,3,8, 185,1) 

CALL  LINE  (XI, YL.ICl.x, 3.0.21*1) 

CALL  PLOTS  ( o  ,  o  )  I  CALL  PLOT  1 PLTL»lo ,o *  8 • • >  *  1ST«1 

,30  RETURN 
END 
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SUBROUTINE  a  C  *  A  NCE  ACVA0000 

CfcMwGN  /TRIanG/  AP<lcO(2>,PP(100,2>,AL<100),RL<100>fZZERp(100i,  ABVA0001 
1  wZ6*w<iliO>.AA«iOOl,EB<lOO>.SST'l0O),CCT<iOO>.*TRl  ACVA0002 

C6HM0N  /Rays/  \RAY(TGAHttO0O>#22<lOOOJ«SS(lOO0>»7IME*lO0O)»  ADVAOO03 

1  NC6UNT UO00 1 tp»AS£ ( 1000 )  ACVA0004 

C£*H0N  /IN Fqz  RSTART,Rt'A*,e»<EGA,ATT,lPRAV,lTN|lTN2.ITN3#IBlG,  AByA0005 

1  1SCP,ITI,  IT2,  IT3.IPEH,  irTIP5,LTRT,uTfcR,LTRP,Lf»l^,UTT  ABVAB006 

C£*HGN  /PJOfeP/  P I • C  78  , ThJP  I  ACVAC007 

C6MH0N  /HJRHSfiS/  iLi?Rl.TI2e0>«8PSTC2O0>  ABVA0008 

C£HP3N/«RC/PtNCHOB  (16) i 1NCR,NBRS,NSRS,ALIm, IFT, IFT1  ABVA0009 

r  I  H£NS  I  tIN  RPN£U(4),RNEIhH),2N£W(4),2PNEM(4)  ABVA0010 

LC  G  J  C  AL  3NIJP.6NLR  ABVA0011 

TANSLPlA.Bl.JAABl/d.-A'S  )  ABVA0012 

CfcuT<CR»T,S»«ABS‘GR J*SC«T< CP  IS  CT»(T*S)*S*S)/3, >  ABVA0013 

tesp  d  VE  R  AU  TPfc  RAYS  ABVA0014 

CO  100  (RAYal.NRAT  !  I H I  ST » 0  »  SSR«SS(!RAY>  ABVA001S 

IF  |NBR»lfc!5t250('iAN01N5HS,E0  1  2500  )  G0  T0  10  ABVA0016 

NN  *NC8UnT ( I RA  Y  >  ApiNK/IH  SNA  «M/ J TN  ShSR*M*NN* 1  IN  Sm*NN/JTN  SNRRiMACVAnOi? 

10  If (ABSJSStn.LT.ALiP.SR.NER.GT.MjRS.BRtNSRtGT.NSRS)  S0  Tg  100  ABVA0018 

ZR*ZZ ( JkAY )  S  MRaRSTART  ADVA0019 

TGR<TGAM(|RAV)  ADVA0020 

TRAViTlPE(IRAY)  ABVA0021 

-RpPHASE ( ) NAY >  ABVA0022 

NCTRaNCBUNY ( (HAY)  ACVA0023 

CE  20  J  •  l ,  N  T  #  J  ABVA0024 

FIND  CORRECT  LAYER  ABVA00J5 

P*  ZB • AL  t I I  **BL  • I )*NR  ABVA00I6 

IF (P.jOUOl.GT.O, •  GO  T£  20  ABVAP027 

\ 7  RR ■ |  ABVAOoae 

IF(ABS(P)|GTllO0Oi,GPlTURlGT,»8t(I))  US  TO  30  ABVA0029 

CENT  I  Nut  ABVAOOJO 

G6  TO  8u  AEVA0031 

C7  »CCT (NTHR )  ABVA0032 

IF < JPRAY.NE.O)  PRINT  6«6, IRAy.nTRR.ZR.RR.TGR.NCTR  ABVA0033 

S7  »SSY ( n7HR )  ADVA00J4 

ZO^ZZERuINTrc ?  ACVA0035 

transform  10  PRIMES  CE0RC I  NATES  AEVA0036 

RO»RZE«a(NTRR )  AEVA0037 

ZNPrCT«(Z>WO>*STp(RR.RQ>  AC  V  AO  0  38 

RRP«CT*(RH»R3)«ST«(ZR«Z0)  AC  V  A  0039 

CIS«AA(MRR)»BB(NTRH)»Z«P  ACVA0040 

7ANT«ST/AMAXl(CTil,fc.3C0)  ABVA0041 

T>jRP*TANSU‘1<TANT»»TGiJ  ABVA0042 

CPIS*CJ»/(l,*tGRP»»2)  ABVA0043 

CALCULATE  PARAOELIC  RAY  PA  TN ,  ALPHA  IS  THE  CURVATURE  ACVA0044 

ALPMA||<(5*dd(ATRR)/CNlS  ACVA0045 

TA*2,»ALPHA  AC V  A  0046 

FIND  !NTfcRSECTIENS  NJTH  LPPER  AND  L0NEH  LAYER  BOUNDARIES  ACVA0047 

CE  40  1*1,2  ABVA0048 

APNTR»AH(NTRR, I (  ABVA0049 

RPNTRRHmINTRR, I )  ABVA0090 

C«APNTR»HPNTR»RRP»ZRP  ACVA0051 

P*BPNTR»T8RP  ABVA0092 

IF (ABS(ALPHA) ,GT, 1,6*25  I  GS  TB  303  ACVA0033 

RAY  MATH  IS  LINEAR  F0R  THESE  STATEMENTS  ADVA0054 

CRPp-C/m  ADVA0055 
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K»2»I»1 

RPNER(KJ»RRP*CRP 

ZPNSn(K|«ZRP*TGRP»CRP 

ZNEh(M)*CT*;PNE4U)>ST>HPNEh(K)*Z0 

RM-4(K)4CT*^PNEw(4)*«T«2PNEk(K)*R0 

ZNEM(K*l)|l,E300 

ZPNEMK*1}»1,E300 

RNEh(X*l)»l,F300 

RPNEM K*» *1 , 63 0 ° 

s«  re  4 u 

c  Set'?  quadratic  ecuatioa  Pen  parabblic  ray  p*th 

303  C’SC»P«p«4,.AuPhA»C 

t» (DllCiLT.O. )  as  T S  32 

CJSC«S0HT(01SC> 

Cl  31  J«l,2 
K*2«J*J«2 
S*2* J*3 

r«p*s»otsc 

BRPiF/T* 

C  ITERaTIBn  T0  ImPREVE  ACCURACY  F6H  SMALL  CURVATURE  PAYS 

IF (ABS(c ) |LT | tl*AsS  CP ) >  CRP»(ALPMA«( (ALPHA*D«P»»?*C)/P )»»2-C)/P 
309  RPnEnIKJaRRP^CRP 

ZPNER(K)«4Rp*CRP*<TaRP*ALPMA«CRP) 

ZNEm(k)>CT«ZPNEm(A)«ST»HPNEm(K)*ZO 

31  RAEN(M»CT»KPNEm(K)«ST*ZPNEm(K  >*rc 

si  re  4 u 

32  Cl  33  J«l,2 
K«2*I*J»2 

33  R\Ep<A)».;,E300 

40  CENT  I N Life 

eNLR»AB4(ZR*AL(NYHR ).aL(AfRR>»RR) ,LY  ,  ,Ol,AND,TGR,GT,«Bl(NTRH) 

C  SELECT  CORRECT  INTtRSECTJEN  AS  MfcXT  PBSITIBN 

IF (NTORjEQ.H  G  te  405 

®NUP»aBXAL(MRR»1)»EL(NTRH»1  )pRR»ZH)  ,LT  ,  ,01 
1  .ANOi  TGH i L T , «BL ( A  TRR»l > 

ae  ts  4i 

409  SNUPiAdbURl  ,lT,  ,01  ,  ANC  ,TGR  ,  U  T  ,  0, 

41  !LP*IDM*-1 

IF  ( | P' 6 T  19N!'P  )  G|  TE  411 
I  Lp,l 

IF (ABS(mRiRnE»<1>> iLT.AI  S(RR«RNEk(2) > )  JuP»2 
IF (RNgRt IUP) ,LT,H«,eR,RNEW( ILPi .GT.RMAX)  JUP»0 

411  IF(,S|T.RNLri)  GO  TE  412 
ICN43 

IF (ABS(mR(RnE«(3) ),LT,ABS(RR.HNER<4) > )  JS N*4 
IF (RNfcMC  ICN) ,LT,RH,eR ,RNEH( ICM .GT.HMAX J  IDN»0 

412  IF  (  ILP,1*E,C)  G0  Tb  414 
ILPIO 

RT«Y»RMaX 
Cl  413  lal>2 

IFIRMjMtll.LT.RR.IF.RNEWiP.GT.RTRY)  &0  T0  413 
RTRY»RNkP| I ) 

ILPRl 

413  CINTISUt 

414  IF ( | DA i UE | 0 )  GG  T|  4 1 6 
ILNPO 
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ACVA0Q6B 
AOVA0069 
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ADVA0071 
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ACVA0076 
ADVA0077 
A0VA0078 
ADVA0079 
ADVA0080 
ADVAnoSl 
ADVA0032 
ACVA00B3 
ADVA00B4 
ACVAOOBS 
ADVA00I6 
ACVA00B7 
ACVA0068 
ADVAD0S9 
ACVA0090 
ACVAOC  l 
ADVAP092 
ADVA0093 
ACVA0094 
ADVA0095 
ADVAn096 
ACVA0097 
ACVA0098 
ACVAD09V 
ADVA0100 
A0VA0101 
ADVA0102 
ADVA0103 
ACVA0104 
ACVA0109 
ADVA0106 
ADVA0107 
ACVA01S8 
ADVA0109 
ADVA0110 
ADVAOlll 
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RTHY*M«4AX 
Ct  416  1*3*4 

tF(HNk«(l),l>T,RH,6fi,RN8HI),GT,RTRV)  U0  Td  415 

ICN*I 

RTRY»hNt«I I ) 

415  CSNT I NUt 
41*  1*  (  ICN,CQ,0)  GG  T(j  420 

IF  (  1  CP  •  »tE. ,  U  >  G0  Ttf  *16 

417  ITRY»J3n 
RTRYiKNtu(  |UN  ) 
fit  TH  4*9 

418  IF(HNt4tlUP),ii6,RNE»(ICN))  G£  76  417 

419  tTRYtJUK 
RTBY*NNt4(tyP» 
fit  H  4*9 

420  If  c  1  U  *» .  t  U ,  0  )  90  76  60 

fit  T 0  419 

4*9  TGHP\«TA*(RH\t*(IfFT)-RHP)«TGfiP 

ThayiYRaY^OelI (RPsf . ( jtry ).RRP , TGRP ,  TUfiPN > 

YGR  M*»TAN5U9<TfiHpN,«t*K T ) 

RmhTHY 
/MZNfcAl [ TRY . 

C  OfcC*  F  PR  StHfACb  AMJ  d£TT6R  HJTs,  TURN9VERS  AND  TURNUNBEAS 

IF  (  rr.H*  i  (,HN,5E,0i  I  U 6  TB  44 
IF ( TGR.GTjU, )  G9  r*  43 
\CTh*nCiR*ITN2 
Gc  T0  4* 

43  MTH«NCi*«l 

44  !M  I  TRY^GT  ,  2  )  G0  IE  46 

NTRH»\* <R»1 

IF  (  MR?  |  GT  ,  0  )  G0  tt  46 

N  T  WH  *  1 

SSR*SS«»3l, 

PpHlPRR*P  | 

*•  CTH*;,C  i  p*i  r\ 

*  G  R  »  •  T  fi  H  N 
fie  re  3u 

46  MRh*%ThR«1 

if <\TRR1ut,.4T«n  «0  re  4« 

NTRH*M«  I 
*.CTH»\Ci**ITL3 

T  G  R  4  Z  fc  *  i  ANSuM  tuRA.BL  (MR  l )  ) 

S*13O,*A05<K,RAZt-)*l, 

MS 
S  *  S  •  i\ 

IF  (N,GT1IV9)  N*19V 

SSR*S6«*( (l,«S>*4HtT (n)*S«PRLT(N*i) ) 
phr«phR*(  (l,«S)*9PST<r»)*S»RPST(Mi>) 

TGfl**TA'YSuH|TGRA/t,BU(KTRl ) ) 

IF<TGR,u7,»3G(MRJ)J  80,30 
46  TGR«TGRiy 

fit  T  G  3u 

C  CAtCuLATt  «AY  IKTERSfcCTieA  WJTh  VERTICAL  B0UNPARY,  RtRMAX 

50  IF(AHS(sT),GTl2)fc»4)  Gf  T0  60 

9V*«CT/sT 
AV*(HPA*«HO»/iT 


AOVAO 

advao 

AOVAO 

AOVAO 

AOVAO 

AOVAO 

AOVAO 

ADVAO 

ADVAO 

AOVAO 

ADVAO 

ADVAO 

ADVAO 

AOVAO 

ADVAO 

ADVAO 

AOVAO 

AOVAO 

ADVAO 

ADVAO 

AOVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

4JVA0 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

AOVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

ADVAO 

AOVAO 

ADVAO 
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[ 

[ 

i 

i 

I 

I 

I 


r 

* 
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E  1  A  Y  «  PpH  •()  V  -  JAP 

ADVA016# 

P  *  H  ^  T  (» •» 

ADVA0149 

Ic ( 4hb(*LPH»i ,GT , 1 ,fc.2i )  GE  T G  501 

AOVAO170 

c 

LlNe*R  ”4VS 

ACVA0171 

RPNe. ( 1 t *RMp.c/P 

ADVA0172 

fiPNt«(2)al.elQQ 

ADVA0173 

ns  TP  bub 

ADVA0174 

c 

PiHia'lj.lc  h»YS 

ADVA0175 

501 

nso*p»''«41»»L°H*»c 

ADVA0176 

If  (0IiC.LT  ,0,  )  G1’1  T£  8C 

ACVA0177 

riic«SJaT(nisci 

ADVA017S 

SI1, 

ACVA0179 

rs  503  1*1.3 

AOVAOIBO 

F»P*S*l)lSC 

ADVAOltl 

DNPaP/Ta 

ACVA01B2 

If(4Hi(M,LT,,l«*o5(P))  tRP»(ALPF>A»<(ALPHA»DRP*»2.C)/P)4*2.C>/R 

ACVA01I3 

nt;Se»  (  I  J  SWBP*LBP 

ADVA0184 

507 

S  *  ■  5 

ADVA0H5 

505 

re  5i  1  *  1 1 0 

ACVA01S6 

?PNt«(  1  )  *3HP*(  mpnly  (  t  )  »WPP)»(T0PP*4tf>(T*4(RPNP4t  1  >«RRP)  ) 

ADVA01S7 

51 

7Nfc«(  P»CT»3PnF«(  n»ST«RPNE«»  I  >*i  0 

AOVAOlBB 

1*2 

AC v*0* 89 

C 

5fel,fcwT  "ciPhEC^  INTERSECT  JEN 

ABVA0191 

IF(ARSUNtMlWR>,bT,4aStZNEw(2>*ZH>)  J»1 

ADVA0191 

T&RPMT4»{«P\ti,<  I  ).WRP)»TGBP 

ADVA0192 

TPAY»TP*r«r'etT  (RRNE»t  l  )»RRP.TC«P|  TGRPN) 

ADVA0193 

TGPS».T*N5Ui(T5HpN.*TA6T) 

ADVA0194 

c 

i>cCa  f  PR  TCHNc VfcR  i  AND  TcfiNLNDERS 

ACVA0195 

5c 

If  (  TG*»  lGH-.,'5t,0,  1  00  T0  54 

ACVA0196 

If (TGR,LT,C,  )  00  TE  * 3 

ADVA0197 

NCTR»NClH*l 

A0VA0198 

05  TC  54 

ACVA0199 

53 

NCTRiNC  >«*l TN< 

ADVAOC00 

54 

T  G  A"  ( [PAY JaTIRN 

ADVAO201 

If (NTHP.Lt,!)  08  IE  645 

ADVA0202 

C 

C*cC4  That  pat  lb  wITLJN  TPE  proper  limits 

ACVA0203 

lF(3NtYlU,LF,*L,6TRR-l)*8l><NTRR.i)»RRAX.,l) 

jS  ta  BO 

ADVA0204 

545 

If(3*.t*II),GT,AL(i>TRR)«HI  <\TRR)»RMAX*,1)  GO 

T8  80 

ADVA0205 

0 

T  Hf.  3  «  I*.  V  £  L  u  M  t  ATTtvLATJJN 

ADVA0206 

If (I*TTjf<6l3)SSR*i*R«lC,4*(»«0001*ATT*(TRAV» 

TIME! I  RAT)) /SORT (CIS) MDVA0207 

5b 

S 3  (  HAY  -aSSR 

ACVA0208 

IH  J«AY>*3Nt.(I) 

AD’  A0209 

*  I  yc ( |R*Y  )«T  =  AY 

ADVA0210 

*  COCN.T  (  JRAT  )*NCTR 

aD VA0211 

PfA5fc.(  IhaY  1  «JpB 

ADVA0212 

06  TP  ICO 

ADVA0213 

60 

I  r  1  i!  ■  6 0 

ADVA0214 

c 

oxfcN  SHALC  ER  3FRE  P8R l ?£N  T  AU  GRADIENTS, 

EQU aT I 0N  P6R  SEC7I8N 

ADVA0215 

c 

50  !b  SINGULAR,  This  IP  AN  ITERATIVE  S0UUTI0N  F0R  SUCH  A  CASE 

ADVA0216 

c 

GLt  is  V*Llt  Fw*«  ITfcKATIfN 

ADVA0217 

7N„«3N.iGn»(Bhax»«R) 

AD VA0218 

<6 

Ci  67  I  *  1 1 7 

ADVA0219 

OP\«lCT»(H“AX-RQ>»ST»(7vk*2Q) 

ACVA0220 

rfiPlHPN.-RPp 

ADVA0221 

TGRPAV*'GRP»*lPh*»CRP 

ADVA0222 

r 4p*g«p*tgrp4» 

ADVA0223 

84 
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ZPNMmZH^OZP 

ACVA0224 

ZN«2»C  WPnn.$t«RPN.»*Zo 

ACVA0225 

E»abS{Znm2«Z\.) 

ACVA0226 

!M|  ( fc  a  x  3  )  QC«D 

ACVA0227 

67 

ZNwiZNm* 

ACVA0228 

L 

C*feC6  MW  CeNVtfiQENCfc 

ACVA0229 

1nc.wT4.01  >  ae  tb  6« 

ACVAG230 

1HC.W  ,9*JE)  Q1?  TE  66 

ACTA0231 

1 M I S  T»  jj 

ACVA0232 

G6  T5  su 

ACVA0233 

68 

RPNfcN(l)*HPivE«<2>*RPNi« 

ACVAG234 

GE  TS  5u 5 

ACVA0235 

C 

PR  J  N  i  eRRSR  MESSAGE 

ACVA0236 

eo 

SjR*0, 

ACVAM2J7 

PRINT  81, JR*y.  lMlST.PH.2fl.TGR 

ACVAA238 

PRINT  Mb,  RmA*,2\icM  (  I  ) ,  TGHN 

ACVAR239 

666 

rfcPMMT (•  M  A  T  •  ,  15  •  •  JK  LATER*. IS,®  Z»«  .Pl0,2)*  fl**|F10,2»* 

T&fli* ,f ACVA0240 

1  1 0 , 5  .  •  iyCTR*  *,ei6) 

ACV4A241 

81 

rSHMAt!*  MAT  •  1 1 5 1 •  T£RMINATEC*|5*I*I"IST««, |2,J*,»ST*(»TING 

RANGE*ACT*n2«2 

1*  .R"  12 , 2 , 5X ,  •HAT  0fcPTn.,ri2,2,5X,*5TAMTlNG  T  ANGENTi*  .  Ft] ,  6 ) 

ACVAA243 

82 

FSHHAT  Ox,  *ma«Imup  HAr.Gk**,F12,2.0l,*NEM  Hat  0EpTMi«,ri0,2, 

5«,*FISACVA0244 

1 AL  TANGtNTr»,f 12,6) 

ACVAA249 

GE  T 6  95 

ACTA0246 

100 

CENT  I N Jt 

ACvaA247 

RETURN 

ACVA0246 

END 

ADVA0249 

V; 

i 

\ 


I*? 

V 


J 

\i 


$ 


! 


k* 

c 


I 


I 
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DS  ADVANCE  06/04/73  60  0 

l CENT  ADVANCE 

PHSGRAP  LkN(»T»  01720 

ENTRY  P6INTS  ADVANCE  00125 
fiCfC*  NAMES 

THIANli  02261 

pays  13561 

I  Nr e  00024 

P(CEF  00003 

MJRR6RS  00621 

*dC  00026 

EXTERNAL  symbols* 

Tm^nc, 

CJ010140 

3j,;ooo«v 

ClClOlOO 

Q150310U 

O2C071U 

aaoc  t  cT . 

SoRTf 
*A*ir 
ST*- , 

OnSJNOUi 
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ttBP*  »v.Tnipw».  iff -Ty— in 


I 


•  <* 


06/04/73 


HIMbT|N|  CHANNlLIZliTiZTI.ZTU) 
cihhin  /viLP»r/  NiKioohcuoo) 

C*Lb  V8VC41C 
20  Dl  29  I |2jN 

|M2«,0T,{(  J))  0«  Tl  29 

>2*1 

M<ZR.Zllal>>/<ZU>»Z<l*l>> 
CH*JO*Tll|*T»T>.«r»C(I)»(l,.r)«Cl >•!)) 

01  T6  3U 

29  ClNtjNUk 
ZTUiZT*i>i« 

RETURN 

30  |N«|Z<1 

3;  >rtC(lNl,bT,CH)  a«  Tt  39 

JNa jN«l 

JF<IN,NR,Q>  99  T9  31 
ZT9«0,  * 

09  T9  4U 

39  PKiMaCl  IN*in/(C(lN)*C(IN«in 
ZT9ar*ziiNU<i,.n*2(>Mi) 

40  >N*|Z 

41  I r ( g ( |N I ,«T ,CH  >  00  Tf  49 
>N*|N*1 

tF<lN,lk|N>  09  TO  41 
ZTUaZtN) 

RETURN 

49  r»(QH«ci  >N»in/(Ct  is). ci  in. in 

ZTuaraZllN)«<l,.ri*Z(ifc«i> 

R|TU«N 
ENTRY  RtAlC 

I r ( ZT0 .UT . •  . 9 )  09  TS  90 
*CYCH«i,S3r 
RETURN 
90  >N*1 

•CVCLlau, 

T02a0| 

Cl  *0  |al,N 

!r(Z<P1GT,ZT|,i  0,ZU>,LT.ZTU>  09  T9  99 
IF  t  {Ntiuri  >  09  Tt.  10 
RC tenancy CCl*<ZTU»Z<  I •!)>/(. 9*T0p 
RETURN 

99  TQlaSQRM|CH/C<P>**2>li> 

IF ( | ilQil)  09  T|  91 
IFtlMu.l)  01  T9  96 
DRa(ZII)«|tI«l))/<,9*<TQl*TS2P 
01  T9  9/ 

96  09a<Z|P*ZTt>/C,9*TGP 

97  RCY5Lia»<CVCUl*CR 

99  TQZaTQl 

IM2 

60  CINTINUk 

RETURN 
ENTRY  wuENS 

IMRCYCi«,QT,l,E100  >  Of  T|  71 
JM|Z 

69  1F(Z(IN),9T,2R)  0«  TC  TO 


CHANOOOO 

CNAN0001 

CMANO0Q2 

CHAN0003 

CHAN0004 

CHAN0009 

CHAN0006 

CHANOO07 

CHANOOOI 

CHAN0009 

CHAN0010 

CHAN0011 

CHAN0012 

CMAN0013 

CHAN0014 

CHAN0019 

CHAN0016 

CHAN0017 

CMANOOH 

CHAN0019 

CHANOOOO 

CHAN0021 

CHAN00I2 

CHAN00I3 

CHAN0024 

CHAN0029 

CHAN0026 

CHANOOI7 

CHAN0028 

CHAN0029 

CHANOOSO 

CHANOOSI 

CHANOOSi 

CHANOOSi 

CHAN00S4 

CHANOOSI 

CHAN0036 

CHAN0037 

CHANOOSI 

CHANOOSO 

CHAN0040 

CHAN0041 

CHAN0042 

CHAN0043 

CHAN0044 

CHAN0049 

CHAN0046 

CHAN0047 

CHAN0049 

CHAN0049 

CHAN0090 

CHANOOSI 

CHAN0092 

CHAN0093 

CHAN0094 

CHAN0099 
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ifu<I**i),ut,*rj  Ge  re  tj 

! \a I N«1 

if  < i n i Ufe •  n )  os  rs  n 
eg  re  69 

if u< j*«im.e,zr>  os  re  74 

I  N  ■  J  S»1 

|FllN,Ofc,i>  Qg  T0  <5 

T*0, 

return 

|N>1N«1 


V»C(IN>*<5<  J^*1)*C(IM)*<2R.:UM)/(2UN*1).:(IN), 
T»l,/<SuRT< (CH/V>«*2.i, )«RC7CLE> 

StT^/RS 

END 


CHAN0096 

CH6N0097 

CH/ksnoM 

CHAN0099 

CHAN0060 

CMAN0061 

CMAN0062 

CH6N0083 

CNAN0064 

CM4N0065 

CHAN0066 

CNAN0067 

CN4N0068 

CHAN0069 
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$  CHANNEL 


Y 

$. 

f 

S’ 

PR|0»A“  LEN^Th 
ENTRY  PUNTf 

Channel 

rcalc 

“DENS 

Bite*  nahes 

c 

VfiLPRF 

i 

external  SVMBWLS 

i* 

oaacicT, 

f}  ■ 

velcalc 

SQRTf 

06/0</T3 

I CEN  T  CHAfJNtL 

00506 

00003 

00191 

00297 

00311 


ED 
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SlBRGLT  jNt  VELC ALC  VELC  1 

C&HHSN  /IN/#/  COOi/C«RHAXtDCDCOC(ia>  VELC  2 

CSMPGN  /  VfcLPRF  /  M<2  (100  )  iCUOO  )  VELC  3 

CfcHMSN  /ThUNG/  AP(ieO,Z).l4U00iZ),*L(;O0>|BC<iOO)|ZZiRe(lO0l»  ViLC  4 

1  HZfe«t(lOO>.**UC0),P#(100).SST(loO),CCT(lO0>.NT*I  VELC  9 

CGMMeN/AB;/PGNCHOfe  (l6)ilNCR»NBBS,NSPS,ALlM.irT,IFTi  VELC  6 

DATA  1,6100), ( lfT2»0i, (IIKOJ  VSLC  7 

IF  <IFTl,feO,lFT2>  G®  T«  IT  VELC  • 

|BH*0  VELC  « 

IF  T2» |F ! 1  VELC  10 

13  IF  (IFTi,fcQ,OiSN|i£H,£C|l)  61  TO  3  VELC  11 

RCLDmI.EIOO  VELC  12 

SBhai  VELC  13 

3  IF <ABS(kmax-«#LO> iLT.1,  >  Q«  TO  20  VELC  14 

REL0«RHAX  VELC  19 

N*NTRJ*i  VELC  16 

CO  10  • 4 1 j N  VELC  17 

I F ( I , EQ jl )  G®  TO  1  VELC  16 

j«l«l  VELC  19 

ZZ*AL(JJ*BL(J>*RmAX  VELC  20 

GO  T0  2  VELC  21 

1  «■!  VELC  22 

ZZ*0,  VELC  23 

2  ZP»CCT(j>»<ZZ-ZZENe<»>J*SST(wJ»(RNAX-«ZER8(J>>  VELC  24 

c(I)«;./surt(aa(J)*bb(.)*Z9)  velc  29 

10  ?  < I > ■ Z  Z  VELC  26 

20  RE'IRIS  VELC  27 

END  VELC  22 
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)S  VflCALC 


06/04/73 


IC6MT 


RRIGRAH  LENGTH 

00132 

ENTRY 

MINTf 

VELCALC 

00006 

SLICK 

NAMES 

INF* 

00024 

V6LISF 

00311 

Tp J ANQ 

02261 

ABC 

00026 

EXTERNAL  SYMBklS 

ssecicT, 

SQR  TF 


YELCALC 


EC  0 


o  o  oo  n 


B.  G.  ROBERTS 


FTNS.aA  01/02/75 

SUBROUTINE  INTENSTY 

JUNt  U*  1971  LL0TUS  MIRROR  ADDED  FOR  ALL  RECEIVERS  and  TVP§S 
UnUS£d  SVjTch  IE'I»S  jS  NO*  LIMRt  0  fOR  NO  LLOYqS  MiRRoRi  AN() 
NON.zerO  fOR  lL®¥D8  RiRROR,  THIS  <pITCH  is  the  C°UJRN  AFTER 
I  PER  ON  THE  INPUT  J*RqS 
6 /l 5 /T 1  RECEIVERS  BELOV  BOTTOM  FIXED 
COMMON  /LOUoNESS/  LNR*«RcO<iou> • I  Sc  1 1 °0  >  .TTPeiRP*100* t 
1  TYPeiiUOO)  tTVPCJIIIlOO) 

COMMON  /TLE/ST|TLE  US) 

COMMON  /RATS/  NRAYt  TGAM ( lOOOl *ZZ( To00>  *  SS( lOOOl  *TIME<1000S  * 

1  NrOJNT^OOO)  *PhaSE<IWo°) 

COMMON  / jNpO/  RSTARTiBMAXtOME8AiATTilPRAT*jTNilTN2»iTN3tlBIO* 

1  ISC^iITuiTbuTIiIPeR.  LLMR  ,ltrt,lteR.ltrp,lpin,iatt* 

COMMON  /PIOC tf  PPOTMTVOPI 
COMMON  /Ve1.PRf/NN»IA1*0)  *Cl'0®> 

COMMON  /TMPSTH/  DUOtlSg) 

OIMENSjON  Ou*0( 100) ,ImR(100),SiNT(100,4),SSl{)00)  ,°US(100),TtPS( 
10) 

EQUIVALENCE  (QUAOiDOOI 

COMMON/ABC'PUNCHUU  UR) • jNcRiNbRSinSPSi ALIM'  IfT»  jpTl 
OATA  (IERTf0),(IFT2p0),(lBH.0),(IHR.»  J.'.O)) 

SEC  «T> ■FVA*SORT 

IF  (IFTl.E0.IFT2)  89  To  2  s  I8H»d  *  IFT2«IfT1 

2  IF  (IFT1.EO«O.OR.IBM>EQ.1)  GO  TO  3  s  ient>o  s  IBH-1 

3  FVA.l. 

IF(IaTT.EQ.O«AND.ATT.Ne*0*>  FVA«10.##<-.0fi01#ATT,RMAx> 


CALL  VeLCALC  SVaVELvTVOPi*C11>/0ME3a  SaK"TV0PI/VaVeL  * 
00  3  X«l*LNRC 

TYPElSCdj.TyPEliRlIl.TrPEn  (I).TyPEIII  ,I).OUAOd).0, 
IF<ITi.EQ.0.aNo.IT2.Ej.0>  60  TO  60 

SP*®, 


flh*i. 


SqZ»®. 

1)0  1°  l«HfNRAT 

v«amtni  tss  <  i )  .ssu-jn 
S02,Sde*P*ABS(Z2(I1.Z4(I-1) ) 

10  S«-SV*4 

02BAR»SDZ/SV 

IFIOZSAR.LT. PAVEL)  OldARBVAVEL 

CALL  CHANNELU..1000.iZS,ZB) 

0Zm«ZB/S0RT (FLOAT  INRAY) ) 

IF(dZBaR.QT.DZM)  ueba«»ozm 

IF  <1T* .£0.°)  GO  TO  >5 

[)0  2°  |»1,NRaY 

n»ncounTij) 

m«n/iTn 

NTO»N*M#I fN 

n«m/jtn 

nsr»m*n»itn 

m*n/jtn 

NTU»N-M»ITN 

NBRaM 

IF(I.EO.l)  GO  TO  l9 

N0TU0»IabS(NT0-nT00) »IaBS(NTU-NTUO) 

NDSbR«IABS(NSR-NSR0)*IaBS<N8R-NbR0) 

!0*N0SjR 

lO*IO*NOTUO 


INTI 
INTl 
iM 

PTl 
INTI 
INTI 
I  NT 
I  NT 
INT 
INT 
INT 
INT 
PT 
INTI 
INT 

,.1WI 

INT 

INT 

INT 

INT 

INT 

INT 

INTI 

INTI 

INT 

INT! 

ISf 

INT 

INT 

INT| 

INT 

INT 

PT 

INT 

INT 

INT 

INT 

INT 

INT 

INT| 

INT 

INT 

INT 

INT 

INT 

INTI 

INT 

INTI 

INT 

INT 

INT 

HT| 

TNTI 

INT 


1 

3 

4 

5 

6 

7 

8 
9 

n 

12 

13 

13 

i6 

IT 

IB 

21 

w 

24 

25 

5* 

2® 

29 

M 

32 

33 

34 

35 

3t 

’8 

39 

t? 

42 

43 

44 

45 

46 

47 

48 
*9 

50 

51 

52 

53 

54 

55 

56 
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FTNS.4* 


01/02/75 


IFtIU.OT.3)  !0;3 

M«ANHl(»|!)|SS(uin 

IF (N.Le .ALIH.OR.NBa.G)  .NBHS.OH.NSR.OT.NSRS)  10*3 

NCOUNt ( I ) "NCOUNT ( I ) * IU*IrI0 

NSROaNSB 


NBROaNiB 

NTUOaNTU 

NTOOaNTO 

CONTINJC  S  DO  21  ’al.LNRC 
SSL (i) *0.0 
«uf,!i,o.o 
„  TYRS<1>*0.0 
2*  lMB(|)a»  |  jpfl.O 

INMbnCoUnT  (2)  /{BilO 
D°  30  1*2, NRA* 

NCOUNT ( 1 1 aNCOUNT ( I ) »I«8»iaiO 

JNXT«N£OUNT I I»1 > / IaJG  s  IF(I*Z*LE.NRAY)  INXTT*NCOUNT<I«2)/IBIO 
IFIIN8.0E.2)  00  TO  8« 

I°laO  I  I®2a0  S  I°3*0 
Zi*IKI«i>  ,  , 

S‘aSCC<TO*H(l-l ) )  •SSU-}) 

OSaS[C ( TqAM( I ) )  «8S(i)*S* 

TlaTlHJ«i-l) 

OTbTINCMJ-TI 

TOi"TO»M«I*1' 

OZa22?i?-Z^”TS1DO  *•  J*1.LNRC  S  101*0  S  I02a0  f  io3.0 
ZRaRCO(J)  S  IF  t  ZR.0T.48I  00  TO  20 

Fa(ZR-Zl)/0Z  S  OZlaZitI*l)-ZZ(I)  S  Fla (zR-ZZ (I) > /DZ1 
IF(F.LT.«0.5.0R.F.9T.ltS)  00  TO  2!»  „  .  . 

IF  tINa.cQ.0,*NO«F.te«*.0.*NO*F.0E.0..*ND.IHB(J) ,E0.°)  *3,24 
23  iglal 
0*  TO  jo 

26  IF  I F* OT • I • o» tNO. INN. 60. g  .«Nq.INxT.NE. INW. AND. IHP< J> .EQ. o’ 3l' 2 

31  102*1 

00  TO  26 

32  IF  (F.LT.o.O.ANO.IFR.NE.INN.aNO.INW.EO.o)  33*34 

33  I»3-l 

G5  TO  26 

34  101*0  t!Q2>0  *IQ3»0 
GO  TO  ** 

26  SLa«Sl«F#0S)/(BNAA#A8»<0Z) ) 

IF  (St.LE.O.O)  QO  TO  25S  IF  (ABSf(dZ).LT. 0,001)  00  TO  25 
TQ«T01.F*0T0  S  IF  <l°l,Ea,l)  IMP(J)*1 
TH»oTH*ATANF (TO)  S  IF(INW.SE.l.ANO.INXT.OE.l)  00  TO  25 
IFILUHB.NE.O)  FUH»2«#SlN(ZR*AK»TO/SQRT(l,*TO»a2))aa. 

IF  (I^UEO.l.ANO,Sll'lT,Jti),EQ,0,0)  SjNT(J,*).FlH 

IF  (iai.EQ.l.AND.SINT<j'l)*EU*fl*Ol  SINTU’tlaSL  .  A 

IF  • 1Q*.e0.I.*N0*5iNT  tj* I)  .Ea.®.5.*ND.SlNTIj,Z) .rO.°.°.ANo*5INT{ 

1  IF*  1  IaND^SJNTu?!  ),£<!. 0,0.  AND, SINT  (J, 2), eO.O.O.ANO. SINT  | 

13>  .EQ.O.O’  SINTlJ’z’aSL 

IF  (ia).EQ.l.AND.SlNT(j*l)  .E0*°*°*AND.SINT  ( J.2)  .eQ.O ,0 .  aN().SINT  I 
13>.EQ.O.O>  SINT1J»*)bFI.N 

IF  (IQ3.EQ.l,ANO,SlNT,jtl).EQ.0,O.AND.SlNT(Jt2),EQ.O.O,ANO.SlNT| 


INTE 

57 

inTe 

58 

INTE 

59 

INTE 

60 

INTE 

81 

INTE 

62 

INTE 

63 

INTE 

69 

INTE 

1ST1 

n 

67 

INTE 

68 

INTE 

69 

INTE 

inTe 

“o 

71 

INTE 

72 

INTE 

73 

INTE 

7* 

inTe 

75 

INTE 

76 

INTE 

77 

INTE 

78 

INTE 

79 

INTE 

80 

INTE 

81 

INTE 

INTE 

Si 

INTE 

84 

INTE 

85 

INTE 

86 

INTE 

87 

!#!! 

88 

89 

INTE 

90 

INTE 

91 

INTE 

9* 

INTE 

93 

l«i 

9* 

95 

INTE 

96 

INTE 

97 

INTE 

98 

INTE 

99 

inte 

100 

INTE 

101 

INTE 

m 

IS* 

104 

INTE 

inte 

mi 

INTE 

107 

INTE 

108 

INTE 

109 

INTE 

110 

INTE 

111 

INTE 

112 
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]QUAl*3 

IQUAL** 


13).EQ*0.0>  SINT  I J.  3 1  *SL 
17<IRER.£U.*)  00  TO  2<i 
17  IienT.eO.O)  HRlTe(bTER'1099>tSTiT|.E 
17  (IEmT.EO.O)  9RIT0<  *9*1079), STjTLE 
1079  FORMAT  (10*0) 

J099  FORMAT  ( 1 M ’ • •  EIQENRAY  SeT  **1o*0- 

I7(!|NT.£a,0)  KRlTeiLTERt«99) 

™*10.*AU°G10<SU 
N*NCOUMT(I) 

1£NT«1 
M*N/ITm 
NTO*N"M*iTN 
N*M/ 1 T  9 
N$M«M>N*lTN 

n*n/iTn 

NTU*N-M*ITN 
n8R*m 

IF  < J<33«eO«  1 ) 

IF  (IQ?, £0.1) 

IF  <I»l*E«*l> 

I 

IF  (rOl.EQ*l*AN0*SlNT(j«3)  .NE*0.0)  jR£M«2h* 

IF  (SlMT(J*3) .NE.O.O.ANO.IOl.EO.l)  IREM*2H** 

»RITE(lTER,900)  I*NOR,nTU,NS«*NTOiRMAX,ZR*TM,T,PR, IOUAL,IREM 
RMKMmR MAX/ 1000*0 

■RJT£ (*9*107ti  I  J*N*R*nTU*NSR*NTO*RMKM«ZR«Tm*T*PR 
1070  FORMAT  (5p,Elo,*,rlO,A,FlO,**Fl5,9,Fl0.1) 

099  FORMAT (•on»AY  NOR  nTU  n9h  nTO*. 10X.*«*nOE  DEPTH  THETa 
l  TIME**  9X,*SU (Oi) •* 5X»*I<3UAL*. *X**REM*) 

900  F0RMAT(SI5.ri5.0*7l0***7iO.**7l3.5.Fl0.1*OA.I5.!>X.A2> 

?2  FLM.SIMTIJ,*) 

I*  (SInTjJ.Ij.nE.O.I  SL«SINT(J,1) 

IF  (SI  NT (J* 2) *NE*0**A  0*SINT(J*1) *EO.0<0>  $L*SINT(J*?) 

IF  (SINTIJ.3) .NI.O..A  o*SINT(J*l) .£0.0.0)  SL*SINT(J*3) 

IF  (SI MT ( J* 3)  aEO>0*0)  SO  TO  2? 

IF  (IU1.E0.1.anO.SInT)J,1) .NE.0,0)  71*72 

71  TVPEIH»(J)*9SLU) 

IF  (ISCP.EQ*0)  00  TO  *7 
TYPEISC(J)*TYP5tJ) 

QUAD t Jl*QUS ( J) 

00  TO  *7 

72  SSl(J) ■TYPEIRP(J) 

*7  TYPEIR»(J)*TYPEJRP(J> *SL*7lm 
Jg.lSgP.p.O,  30  TO  29 

P*OM£OA»T*PHASE<Z> 

IF  (IO3.EO.l.AM0*ial*E0*0)  QUS ( J) -QUAD ( J> 

QUAD! J)*aUAD( JI«PR*OI«(P) 

17  (I03*EQ*1.ANO*I9i*6Q*0»  TYPS(J)»TYPeI$C(J> 
TyPEISC(J)*TyP£ISC(J)*PR*COS(P) 

29  17  (INXT.0E.1.0R*2PR*NE*INM,AND.INH.NE.INAT) IHP(J)*0 


INT 
I  NT 
INT 
I  NT 
INT 
INT 
INT 
INT 
INT 
INTI 
INTI 
INT 
INT 
INT 
INT| 
INT 
INT 
INT 
INT 
INTI 
INTI 
INT 
INT 
INT 
INT 
INT 
INT 
InT 
INT 
INT 

m 

INT 

INTI 

INT 

INT 

INTI 

INTI 

INT 

INTI 

INTI 

INT 

INTI 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 


113 

11* 

119 

11* 

117 

110 

119 

120 


123 

12* 

129 

126 

127 

120 

129 

130 

131 

132 

133 
13* 

135 

136 
13* 

ns 

139 

1*0 

1*1 

1*2 

1« 

1** 

l*9 

1*6 

1*7 

1*0 

»» 

191 

152 

153 

lit 

156 

157 

111 

160 

161 

162 

163 


29  IPR*INA 
INMINXT 

IF  (IN*.Ea.0,OR>INR*LT.l.ANo*lNXTT.tT.l)  60  TO  30 

00  20  lL*1»LNRc 

siNT(uh*n*o.o 


INTI 

INTI 

INT| 

INT| 

INTI 


166 

167 

160 
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FTN5«4A 


01/02/78 


SINT(Ll«2i«0.0 

INTC 

169 

SINT(Ll»3)»0*0 

3|NnLL»*)«0.0 

INTI 

INTI 

w 

20 

CONTjNJl 

INTt 

172 

30 

CONTINUE 

INTE 

173 

38 

DO  37  I»l»LNRC 

INTE 

m 

T7PCI*C I I >  "TYRE  1*C  <  1  >  ••*»QtMD  *:>••* 

INTE 

37 

0UAD(I)»ExP( -»C0 ( I ) /DZBAR) 

INTE 

176 

IF<IT2.I0.0>  00  TO  60 

INTE 

177 

F*2.9R4AX*026AR 

INTE 

176 

E««EXP(-ZB/0ZBAR) 

INTE 

}79 

00  50  tal«NR4Y 

INTE 

‘60 

irutstssun.LT.ALiMt  0o  to  5o 

E2>E|P(-ZZ(I)/0Z»*B1 

INTE 

161 

INTE 

162 

SLbSEC (TQAM 11).  *65 ( J )  /F 

INTE 

163 

SOKaTOlM { 1 >  *AK/S0RT 1 1 • ♦TQAM ( I ) ••j) 

INTE 

IB 

SL«SC/(1.-.**(E8/E£4EZ)) 

INTE 

00  *0  J«1*LNRC 

INTE 

166 

IF (RC0( J) .OT.ZI)  00  TO  SO 

INTE 

167 

ERbQUAOIJ*  „ 

INTE 

166 

IF<LLNR.NE.°>  fLM2.*SlN<RC0<J>*S0Kl*#2 

INT| 

>69 

IF(EH.;T.EZ)  00  TO  ’9 

INTE 

190 

S»Sl#E9/EZ 

INT| 

191 

00  TO  40 

INTE 

192 

39 

S"Sl*EZ/ER 

INTE 

W 

198 

*0 

50 

Txpm  <  j>  ,tvpe  i  1 1 j>  ♦stpLK 

cONTjNjf 

INTE 

INT| 

60 

IF ( IT3.EQ.0)  RETUHN 

INTE 

196 

00  70  I-l.NRAT 

INTE 

197 

CALL  ChANNEUZZUI  *TtoAM|UZTO.ZTU| 

CALL  ‘♦CALC 

INTE 

INT| 

196 

199 

IF(LLMR.NE.O>  CALL  ROCNS TZZ 1 1 ) *cT«R) 

INTE 

18? 

SL«FVA*SS<I»/MAX 

INTE 

DO  8*  J-l.LNRC 

INTE 

202 

IF(«CO(J).OT,zTU|  00  TO  70 

INTE 

203 

IF(MCUU)  jLT.ZTO)  30  TO  6b 

CALL  "3ENs<MCO<JJ *S1 

IF  (LL^R.eO*  0»  00  TO  64 

inie 

INtE 

204 

205 

INTE 

1st 

T0"T8*H( 1) *CTRR/S 

INTE 

207 

FLH«2.4SlN(AK4»0t J»»To/S0RTf l.*T0*«2))«»2 

INTE 

206 

s.s.flr 

INTC 

209 

64 

TrPEIIHJ)«TYPCIi:<Jl»S«SL 

INTE 

SI? 

68 

CONTINUE 

INTE 

70 

CONTINUE 

INTE 

212 

RETURN 

INTE 

213 

END 

INTE 

214 
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*.*0S  INTENSTY 


prooram  length 

ENTRY  points  intensty 

block  names 

LOUDNESS 

TLE 

RAYS 

INFO 

PIDEF 

VELPRP 

tmpstr 


External  syhsols 


ABC 


02007)11 

fHENO# 


obodict. 
VELCALC 
CHANNEL 
RCALC 
•  DENS 


ALOGIO 

SORTF 

SINF 

MINlF 

EXPF 


COSF 

ATANF 

STm. 

SL0. 

QNSlNflL* 


IDENT 

03*Sl 

BlS«0 


00765 

00012 

13561 

00024 


00003 

00311 

30266 


00026 


INTENSTY 


01/02/75 


ED 
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StBRGcTjNfc  ITNPHUT  ( N 1  NT  )  1  TNR 

CfcMMGN  /I*f9/  HSTaR  T ,  RR  AX i OHEGAjATT , I  PRAY , J  TN, I TN2  f I TNS  # I B  1 0 1  ITNP 

1  IStR.JTl.lt?,  ITJ,  tPE«,  im*S, lTRt,UTtfl, t  MP,lHN,!ATT  ITNP 

cerren  /T«p«Tt./  OLttifl?)  JTnp 

CfcRRON/LlRI . J/  HI  (10),  OH  ( 1 0 ) t  82  (10)  JTNP 

CShhGN/aHC/Pl'NChDb  (16).INCR«NBRS,NSRS,ALlR,IFT,tFTl  ITNP 

C6HHGN  /T^E/STlTlfc  (10)  ITNP 

0  A  T  A ( J  MtH»l )  JTNP 

D I RfcNb l BN  ttN6(90),Ce(4),FPT(6)|4AU(400),JS(4),ABDDD(182)  ITNP 

suujvAttNce  uine.cdc)  ITnp 

C6MRI5N  /LBUDSfeSS/  L\SC,HCD(100)|AU10Q|4>  JTNP 

EQUIVALENCE  (Al.AAL)  ITNP 

CATA  (HA6*3hA7, ). (EFe»5HF7,l, ), (S*1H  )  ,  (  I  S»  1 HS .  1HR  ,  1M2 ,  JH3  >  ITNP 

DATA  (FMT(l)»6H(Fe,J,),(FMT(6)»8h6*,90Ai)l  JTNP 

CJMfeNbltoN  I  T T ( 4 )  JTNP 

FtUjVALcNCfc  USCMTT)  ITNP 

CATA  CltNT«0).UTI?»(!),(IBP»0)  ITNP 

IF  (If  Ti.bCi,  IFT2»  G6  TO  3  *  1BH»0  *  IFT2«JFTl  ITNP 

3  JF  (IFTi,kO,0,8R, jeR.fcO,!)  68  T0  2  S  I NC«»1  I  JENTaO  I  HA6»3HA7i  ITNP 
Rf6*5RF/,l,  1  B«lt  SlSdXlHS  *  I  b  (  2  )  »1HH  t  IS(3)*1H2  S  J  $  ( 4  >*1H3 1 TNP 

FFT(i)46H(Fe,3,  »  FRT(« )*BR6X,90Al)  S  J BH«1  ITNP 

2  !F«MNTj6J,D  Gb  TO  40  1  AR*0,  *  DB  10  1*1,400  ITNP 

IF  (A»tD  >,GT,AR)  AfiAAL(l)  ITNP 

10  CENTlNut  »  OBP*10,»AINT(AL8510(AP))  S  DBL*DBM.90,  JTnp 

R4»,001»HMAx  ITNP 

ISK«0  ITNP 

IF  MfcNI.kO,})  NHJTfe  (3V,l)  STJTtfc  ITNP 

IF  (URC.Gfc,  J5)  JSA«1  ITNP 

WHITE  (99,90)), jSA.HKfCBl.CBP  ITNP 

CE  30  !*l,l*8C  ITNP 

OE  IS  J*l,90  ITNP 

IS  L  1  Nfc  C »/  J  «XH  ITNP 

ce  29  J*1 , 4  ITNP 

IF (AU( J  .J) ,LT,AllM)  1,8  T£  20  ITNP 

FH  T ( j*l  )  *MF  6  ITNP 

Db<J)*l«,*AL86l0«At(|,.))  ITNP 

IL»(CB( J).DUL)*1,9  ITNP 

IF ( lL,lt,0,tt)H,IliUT,90)  00  T 8  29  ITNP 

LlN6(iu*IS<  j)  ITNP 

GE  TO  25  ITNP 

20  FM(j*1>«HA6  ITNP 

Cb(U)»H  ITNP 

25  CENT  I  MJt  ITNP 

30  WHITE  ( 3V , F MT )  HCt ( 1 ) .CBitlNE  *  IfcNT*!  ITNP 

RfcTgfiN  ‘  ITNP 

40  IF ( lENT.Nfc.O)  Gb  TO  41  JTNP 

HR  I T£ ( 3v , 1 ) , ST  I  Tit  ITNP 

1  FEH-AT  ( 1  hi , 1 0  AS )  ITNP 

«R1TE  (96,920).STlTtE,LNHC,ITT(l>,lTT(2),ITT(3),ITT(4)  ITNP 

IF  (IfcNl,fcC,0)  H"|Tfe  (39,941)  STJTtfc, (RCD(J),J*1,19)  ITNP 

941  FfcR-AT  ( 10 A0  ,  / , ( 1 0 F 0,3))  ITNP 

If  (Ifc'M,fcO,0,ANO,ITT(l),ST,0)  RHJTfc  (49,912)  iSTIT^E  ITNP 

912  F  £  HR  A  T  (•  CyHfcRfcNT  F>MSt  V  A 1 1 E  S*  i  / 1 1 0  A0  )  ITNP 

If  (lfcNl,fcQ(3,AND,ITT(2),GT,C)  RRJTfe  ( 46 , 913  > ,  ST  I  TIE  ITNP 

913  f  e  hr  a  t  <•  rancor  prase  vauES*,/,ioab>  ITNP 

If  (lfcNi,tO,3,ANO,ITT(3),GT,0)  RRJTfc  ( 47 , 914 ) , ST  I TLE  ITNP 
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914  rgSMAJ  (*  Type  2  VALLES*, /,10A«)  ITNP 

if  (lfcMt,fcCi,0,ANO,ITT(4),OT,0>  wRJTfc  (46,919)  » St IT|.E  ITNP 

915  FERMAT  (•  Type  3  VALLES*, /,10A8)  ITNP 

UNTp;  ITNP 

wRITE(3v,VC4)  (HCUU ),I»i,LNPC)  ITNP 

Uh I T6  (09,905 )  ITNP 

900  FERMAT ( 1 1 • I nTENS I TIES  *T*,FlC,3,*  Xm,  */*0  DEPTH  I  SC  JRP  ITNP 
1  II  III  «. 79,1,64X^6,1)  ITNP 

905  rgHMAT(*QHtC£lVED  INTENSITY  VS  RANGE* , 15X ,  *AT  DEPTHS*/  ITNP 

1  *0  «(*M)  TYPE  *,13F9,3,/,19X,13F9,3)  ITNP 

908  FgHMATUX)  ITNP 

41  Rn*RWAX/10C0,  ITNP 

1P*Q  ITNP 

Tt  50  1*1,4  ITNP 

IF  <  |TT<  |  )  ,Ei3,0)  5*  Tf  *0  ITNP 

ce  45  j*i,lnRc  itnp 

DLU(j)*  10,*ALFG10(AMax1(ALIH  ,AL(J,I>))  ITNP 

PLNCNCHt  INCHUAHSF  ( uc 0 <  J) )  ITNP 

AbDUDt J)*PUNCHCa( 1  NCR )  ITNP 

INCR«|NtH*l  ITNP 

IF  ( {nCR,LT ,17)  tt{  TS  45  ITNP 

I  <N  C  H  *  1  *  ITNP 

WRITE  (06,909)  (PlnCwDE(II), 11*1,16)  ITNP 

45  CENT  I NUt  ITNP 

IF  (llEy,l,ANC,]TI(l)lGT,0)  WRITE  (45,911)  ( ABDCDI J) , J*1 , 19 >  ITNP 

IF  (I,EU,2,ANC,|TT(2),GT,0)  HR  I Tt  (46,911)  (ABDDDt J) , J*l,19)  ITNP 

IF  (I,feU,3.ANe,lTT(3),Gt,0)  WRITE  (47,911)  ( ABODDI J) , J*1 , 1* >  ITNP 

IF  (IlEu,4|ANL,[TT(4),GT,0)  WRITE  (46,911)  (ABDD0( J) ,  J*l,19)  ITNP 

IF (|P,EU,0)  09  T0  46  ITNP 

WRITE  (49,906)  |S(I),(CUC(w),4*1«UNHC)  ITNP 

906  F6HMAT(i6X,Al,2X.13F9 , l , / ,  1 9 X , 1 JF 9 , 1 )  ITNP 

GE  Tg  5ll  ITNP 

46  I P  *1  ITNP 

WRITE! 3v, 907)  «K . I S ( 1 ) , < CDC U ) , J*l » LNHC >  ITNP 

907  FfcRMA7(F9l3.7X,Al.2Xl13F9,l,/,19X,13F9,i)  ITNP 

50  CENTINUt  ITNP 

909  FERMAT (  14(5,1)  ITNP 

911  FEHMAT  (1076,3)  ITNP 

920  FERMAT  (10*8./, 515)  ITNP 

fifc  T  (jRN  ITNP 

END  ITNP 
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S  JUPPINT 

FR0GRAN  LGNGTn 
ENTRY  RC  I  NTS 
BieCK  NAMES 


EXTERNAL  SYHHNLS 


I TNRRJNT 

Infs 

tmrstr 

UNJTS 

ABC 

TLE 

LBLCNESi 


ThENO, 

UlQlOlOg 

OtfCCICT, 

AlSGIO 

M*X1F 

STL, 

5L9i 

ONSiNGL, 


OS/04/73 


EC 


01960 

00911 

00024 

0C2S6 

0C026 

00026 

00012 

00769 


JCENT 


ITNRRINT 


i 


i 
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St()H0^TjNb  I  VSSPL.HT  ( I  TP  >  I V SB  1 

CfcRMGN  / 1 NT«y  RSt4RT,R>'*7#?mE04«*TTiipr*v»|TN,ITN2iJTN3i!8I0i  I  VSR  2 

1  lSCM.m,|t2,ni,lPER,|rt|RS.LTRT,LTER,LTRPiLPlN,UTT  1VSR  3 

C6"R0N  /L6UQNESS/  IM5C|KCD(100J|K<100»4>  1VSR  4 

C6""6N  /TMPSTH/  DUt(162>  I VSR  5 

C6MK0N  /T^E/ST JTlt  (10)  IVSR  6 

CEMneN/ABC/PlNCnDd  (16).lNCR»NBSS,NSRb.*LlH,lFT,trTl  I  VSR  7 

C*T*  ( |tNT*0)«  C  IFTZao) , ( IB^>0)  IVSR  S 

fJM6\b|tiN  L 1  <  xoa )  IVSR  9 

EUUlVALtNCE  (LINE, TOC)  IVSR  10 

If  (1771^3,17  72)  06  IS  13  IVSR  11 

16««0  IVSR  12 

If72.|Fil  IVSR  13 

13  If  < If Ti, 63,0, PH,  I rif , E 0 , 1 )  66  TS  3  IVSR  14 

I  £MT ■ 0  IVSR  19 

I d  w • 1  IVSR  16 

3  If  ( l EN  T , Nt , 0  1  G«  IE  10  IVSR  17 

I  TE  <J0,1  ) » ST  I  TlE  IVSR  IS 

1  rtRtaAT  ( 1 N 1  I  1 o  A  e )  IVSR  19 

ItNTtal  IVSR  20 

I  7 ■  I  TP*i  IVSR  21 

I'(tT,feu,5>  M*i  IVSR  22 

te  2  i«iill  IVSR  23 

2  L|Nb(l)«”}7o*10*i  IVSR  24 

NihJ\0(lNHC,9)  IVSR  29 

tafi I TE ( Jo , 900 )  (HCU<1>,1,I»1,N>  IVSR  26 

taRITE  ( J  8 1 9  o  1  )  (LINE! I >* I'l'll)  IVSR  27 

C6  25  I  *  1 1 1 1  IVSR  21 

25  L I NE ( | ) «1H*  IVSR  29 

taHITE  (J8«903)  (Uft(I!#I*l.ll)  IVSR  3Q 

900  F£RPAT(iO».l5A,«HtCEIVfD  INTENSITY  VS  R*N6E»/»0RECE1VER  *7  DEPTH  PIVSR  31 

1U6TS  AS»//(F18,3.ISi)  IVSR  32 

901  f 6RH4T ( *0  R (KH  )  • ,5* 1 11 1 1C )  IVSR  33 

903  ffiRMAT  (14X  ,11(9*,*!))  IVSR  34 

10  If (lT,Lt,O,0R,IT,UT,2)  RETORT  IVSR  35 

C6  15  I «1 | 105  IVSR  36 

15  llNfc(l>«4#  IVSR  37 

C6  20  1«1,N  IVSR  31 

Cb*lO,*«l.0Gi3(AH*Al(l,E'29i*t.(IiIT)n  IVSR  39 

17*161,9*1)9  IVSR  40 

If  (IP,Lfc.0.bR,IP,(iT,l05)  GC  76  20  IVSR  41 

L1N£( |P>-J  IVSR  42 

20  CENT  I NUt  IVSR  43 

PKiRMAX/lQUO ,  IVSR  44 

tali  ME  (3d.  902  >  RK.UNE  IVSR  49 

902  FERMAT (f9,3,14*,lU*Hl)  IVSR  46 

RETURN  *  IVSR  47 

END  IVSR  48 
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.  IVSRPtGT 


06/04/73 


EC  0 


ICENT 


IVSRPL6T 


PR9GRAM  LENGTH 

00432 

ENTRY  PC  I  NTS 

tvSRPtSI 

00064 

BteCK  NAMES 

Imps 

00024 

LBLCNESS 

00765 

TmPSTR 

00266 

tle 

00012 

ABC 

00026 

EXTERNAL  SYMBOLS 

ThEnc, 

OlGlOiOu 

SttCCICT, 

AlSGIO 

XMlNUF 

maxjp 

STM, 

SL®, 

OnS JNGL, 

B.  0.  ROBERTS 


,  4  A  04/04/73 

SEBHBUTjNb  HAY  PLST(NP,ZhA)<)  RAYP 

CCMH8N  /l NFS/  RST4PT, RKAX.FhEGA, ATT, IPRAV.ITN.ITN2.ITN3, IBIS,  RAYP 

1  ISC*»«lTl,IT2,ITS.IP6«.irTIHS»LTRT,UTt**,LTRP»L^:N,|ATT  RAYP 

CEHM9N  /RAYS/  NRAY,TSAY(1000)*ZZ(1000>iSS(1000>iTIHEUQOO)i  RAYP 

1  NC| UN T(1000), PHASE (1000)  RAYP 

CSMH0N  /THPSTR/  OBt (102 )  RAYP 

CIMHSN/ABC/PUNChOs  (16»,INCRiNBRS,NSRS,aUM,IFT,IFTi  RAYP 

DIHbNSIaN  IRI25) i  ISYM25),11A6<119>» i NUM  t  9  »  RAYP 

CEMH0N  / T  H I  an  & /  AP(loOi2),8P(100«2)iAt<100>tBL(100) » 2ZER6I100 ) i  RAYP 
1  RZfcPu<100)|AA(100)»eU(100)iSST(100>iCCT(100)|NTRt  RAYP 

ECulVAUtNCE  (UN6.C0C)  RAYP 

CAtA  nSYH»iNA,lHC,lHa,lH£,lHF*lH0»lHNilHl.tHJ,lMK,lML»lHM,lHN,lM4RAVP 
1  ,lHP,lH0,lHR,iHT,lMl.lMVilh6,lH)C,lNY,lH2,lH*)  RAYP 

C6MH8N  /T^E/ST ITLt  <10)  RAYP 

DATA  IItNT«0>,<JdLNA*lF  ) , ( IHB*1HB  > ,  (1S*1HS),(IFT2*Q),( IRH*0 )  RAYP 

CATA  (InUH*1H2«1HJ«1M,1H9,1H4,1H7,1HB.1M9i1H9)  RAYP 

IF  UFTl.fcR.JFTj)  66  Ti  2  RAYP 

IBHiO  RAYP 

IFT2*JFll  RAYP 

2  IF  (IFTi.fcO.O.BR. IBh.eC, 1)  St  TB  3  RAYP 

IENT*fl  »  J  H  M  •  1  RAYP 

3  IF ( lENT.Nfe.O)  SB  T«  10  RAYP 

WRITE  ClTRP.i  J.sUTLF  RAYP 

!&NT«1  RAYP 

ANP«F|,9AT(NRAY  >/FuEAT(AP)  RAYP 

re  5  |  ai  .  NP  RAYP 

A<ANP«(TUBAT(n*.9)«li  RAYP 

I  R  ( I  )  ■ A*  RAYP 

IFURlU.ttT.NRAY)  I R  ( 1 1  *KRAY  RAYP 

5  CENTINUt  RAYP 

S4«ZHA*/i;4,  RAYP 

WRITE  (LTHP.900)  SZ  RAYP 

10  Zo»AL(*IRJ  )«RL<nTHU»R»<A*  RAYP 

RKHt.OQi'RhA*  RAYP 

Ib«(ZhA*-^B)/SZwl,5  RAYP 

161*1  RAYP 

!FUB,IS,0>  66  T9  12  RAYP 

IF((R|0T,11»)  16*119  RAYP 

CE  11  |il| Id  RAYP 

11  L I N6 ( | ) *  I  HQ  RAYP 

161*16*1  RAYP 

12  CE  15  1*161,114  RAYP 

15  U 1 NE  ( |  )  *  I  6LN1)  RAYP 

tIN6(ll9>«|$  RAYP 

CE  20  l*t,NP  RAYP 

K*  I R  (  J )  RAYP 

IF  (S6M6, 60, 2500. *M),NSRS,EG, 2900)  0»  T»  17  RAYP 

NN«NCEUnT(KJ  IWiNN/ITN  HN*H/|TN  |NSR*M«NN* J TN  |M*NN/JTN  SN|R*M  RAYP 
17  IF  (AQS(sS(K)  )  .LT.AUh^H.NIR.GT.NBRS.BR.NSR.OT.NSRS)  SB  T|  20  RAYP 

ZR*2Z (K  )  RAYP 

IP*IZHAji»2R)/SZ*l,9  RAYP 

IF(IP,Ql ,115)  IP«115  RAYP 

IFUP,tt,0)  56  T9  20  RAYP 

IF  (LINE!  IP),ES.I9tK4,0fi,UNeilP>,eOf  IS.BR.LJNEC  JP),E<J,!HR>  QBTB  19RAYP 
CE  16  J*l,e  RAYP 

if(un6(Ip),ne,inwm,))  gb  re  it  Rayp 


102 


OTTJVW?s»)»«r*f>  J?™?‘?»’V«f^ir*">"Wi  <( '« '«  n  PW*t«vi5p.5!»fT^'« t%* 


NRL  REPORT  7827 


.<* 
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LlNfeJ |P|«|MUMI J«l) 

RAYP 

Gt  T9  2U 

RAYP 

16 

CSNT 1 NUt 

rayp 

UNfc«lPj»|NyH(l) 

RAYP 

GS  T9  2U 

RAYP 

19 

:.1N6<jp»«|Symu  ) 

RAYP 

20 

CINT 1 NUt 

RAYP 

WRItg  <UTSP,90tl  HKP.LIN6 

RAYP 

1  r 6 RM 4 T  (1H1.134B) 

RAYP 

9U0 

7  6Rm*T  (//hOPLi  T  3F  hit  PlTfrS  SCALE  1 78 ,2  i  2*  #  10MM/PRS!  T  ION/ 

RAYP 

1  10HOH*NGg(KH),jX,114(lHX)(lHS) 

RAYP 

901 

FtRH*T«Hi,3,iX,U5*l> 

RAYP 

RfcTURN 

RAYP 

EM) 

R*YP 

•utv*rm>+ .-  ^•r«'M«my>r^vR^M’,»T**w***W**£^WJ/'^  -W3? 
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<S  RAYPL0T  06/04/73  ED  0 

{CENT  RAYPL0T 

PR0ORAH  UtNQTH  0C605 

ENTRY  P61NTS  '  R A YPl.g T  00149 

PL*CK  NAMES 

l«re  OC024 

Rays  il»6i 

TmPSTR  00266 

A«:  00026 

THIANQ  02261 

TtE  00012 

EXTERNAL  SYMHttLS 

ThENC  , 

OlQlOlOO 

36CCICT, 

STH< 

si®, 

OnSINOL, 


i 

I 
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t,4A 
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4 


5 


900 


SLBR0yT JN6  RAYZUJST  (NP> 

RAYZ 

1 

CCMMQN  /rays/  ARAY|TGA^(1000)iZZ(100(UiSS(1000>>T:hE(1000)i 

RAYZ 

2 

1  NC»UnT»1000),PhaSE(1000) 

RAYZ 

3 

CIMMflN  /I NF#/  RSTART,RKAX,|*MF6A|ATY, IPRAVi I IN « 1 TN2|  I TN3i 18 IGi 

RAY2 

4 

1  isgp ilTl.IT2.lT3f JPER.lfTJRSiLTRT.tTER.UTRP.LPIN.lATT 

RAYZ 

5 

CCMM0N  /ThPS’R/  our (162) 

RAYZ 

6 

CIMMSN  /TyE/ST ! TLfc  <10> 

RAYZ 

7 

C IRENS I UN  UNEI71) 

RAYZ 

B 

DIMENSION  ISYMI25 ) , JR (?5 ) 

RAYZ 

9 

CSMM0N  /PJDEP/  Pl.tTR.TwePl 

RAYZ 

10 

ECUJ YALkNJE  (LlNEiCDC  ) 

RAYZ 

11 

C6HH0K/A«5/PUNCHO6  <16>#  INCR.NHRS|NSRS,ALIH,  JFT,  IFTi 

RAYZ 

12 

DATA  UtNT»O>il|fT2«C).U0R»O> 

RAYZ 

13 

DATA  U6YR«lMAilHC,lhD.lNE»ll-P|lRe»lHH,lHl,lMJ,lHKilHt,lHtMHN 

.M0RAYZ 

14 

1  ilNP*lHOilhR,lHTilMtilHV»l^NflHXjlHY(lHZ|lH») 

RAYZ 

15 

IF  (IFTl.pO, 1 FT2 >  G0  T£  7 

RAYZ 

16 

IBHfO  ‘ 

RAYZ 

17 

!FT2»lFtl 

RA*Z 

16 

7 

if  urTi^o.o.sR.ieH.Ec.i)  sc  te  6 

H»r  Z 

19 

lENTig  • 

RAYZ 

20 

IBH*1 

RAYZ 

21 

6 

IF  (J6N1  ,60,1  1  51  T(  ! 

RAYZ 

22 

LTR0O7* 

RAYZ 

23 

ANP«Fy0*T|NR4Y I/FLCAT(NP) 

RAYZ 

24 

DS  4  J«i,NP 

RAYZ 

25 

A«AnP» IF  Lf  AT* l >•,>  >*1 , 

RAYZ 

26 

|MJ>»A~ 

RAYZ 

27 

IF  (  JR 1 1  )  ,ST , NRAY )  I H ( J  > «NRA Y 

ray: 

28 

CSNTISUk 

RAYZ 

29 

tENTaJ 

RAYZ 

30 

3 

URItE  ( UTRD, 2 ) i ST J TUE 

RAYZ 

31 

INC»1 

RAYZ 

32 

1 

CALL  QHANNEL<liilOOOti7S,Z0} 

RAYZ 

33 

DC  5  1*X« 71 

RAYZ 

34 

LINE ( | ) «1NX 

RAYZ 

35 

RK*RH AX/ 1Q0  0 , 

RAYZ 

36 

SCALEP/B/71,0 

RAYZ 

37 

RRITEILIRDiBOO)  R*  ,  Ze . SCALE , L 1NE 

RAYZ 

38 

D8  a  jai.71 

RAYZ 

39 

n 

LJNEI  P»1H 

RAYZ 

40 

Cl  40  I •! | NR* Y 

RAYZ 

41 

s»ss«p 

RAYZ 

42 

IF  (NBR6,kO,2900«AND,NSRS,EC,29JC)  (if)  T6  35 

RAYZ 

4  3 

MNceyNf  «j> 

RAYZ 

44 

M«N/JTN* 

RAYZ 

45 

MM/ JTN 

RAYZ 

46 

NSR«M»N« I TN 

RAYZ 

47 

MN/ITN 

RAYZ 

48 

f.  B  R  *  m 

RAYZ 

49 

35 

IF  < S . <iTA Ai, f  ',ANO.NP«.LE|NBRS.;nC,nSr,LE,NSRS>  SB  T0  12 

RAYZ 

50 

IF  C,EU,  la<lNS» JJ0.15 

RAYZ 

51 

10 

k-B  I  Tg  (LTRD.IBOII.ISYMUNCI.I 

RAYZ 

52 

INCi|NC«l 

RAYZ 

53 

GC  TC  40 

RAYZ 

64 

15 

uRI  tMLFRUi  901  >  1 

RAYZ 

55 

FIRM* T ( i6HCRA  Y  DEPTH  DI5TRJSLTI0N  AT,F10,4,4W  Km , , 10X , »B0T T0M 

nEPTRAVZ 

56 

4 

5 


« 
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lb«*,noi3|*  h»,iUX,.SC*LE«*iFlO,3»»  H/PP8lTieN»,.'/,2»NBlD  NRAY  RAYZ 


2Nb«  NTu  NS"  NH  ,  JX  ,  5HCEF  TN ,  5X  ,  SNTn*  T  A  ,  6X  ,  4HT  I  HE  *  1*  i  OH^ISSESi  IX  i  RAY Z 
J71A1)  RAYZ 

901  re«M*T(«X,'4,lCX»llHTEPKINATFC,>  RAYZ 

1901  FORMAT  <  2X  ,  A1  ,  ix  .  14  ,  l  ox  ,  11NTERM  JNATbD,  )  RAYZ 

GE  IS  4 C  RAYZ 

12  ra*io,»*u8Gic<s>  rayz 

T  «  T 1 K £  C 1  )  RAYZ 

7*ZZ ( |  )  RAYZ 

MNCeW^I(|)  RAYZ 

fiN/ITN*  RAYZ 

RAYZ 

MH/ITN  RAYZ 

N.6K*H«N»ITN  RAYZ 

P4N/IYM  RAYZ 

KTU»N»H*ITN  RAYZ 

MiR*M  RAYZ 

L1NE(1)«1HG  RAYZ 

UNfc(71>»iHS  RAYZ 

.ALL  CM»NNtLU.TG»Mn,4Te,ZTU  RAYZ 

izP470i»<it-m/ztit*i  ,s  rayz 

If  (IZPiGTf7liGR|lZP,LY)l)  fi«  T*  46  RAYZ 

L 1  Nk  <  I Z*-  #1h*  RAYZ 

46  UM«7Q><l,-2ie/ZB)*l,i  RAYZ 

If  <UM1GT,71,eR,lZP.l.Y,l)  Gt  TS  56  RAYZ 

UNt(|ZM)*lH.  RAYZ 

55  U«»70.*(1.-Z/ZB>*1,5  RAYZ 

If  ClZR.tiT,71,SH,I2W(uY,lJ  GE  TE  60  RAYZ 

LINbl  JZtO»lH«  RAYZ 

60  TMLTR**TAN(TGAM(  1)  J  RAYZ 

If  ( 1  , Eu |  IR(  1 K C  > >20(25  RAYZ 

20  Vh  |  TE  1 UTHD i 9 0?  )  J  S  YM I NC ) ,  I  i  ABR| NTUi NSRi NTS,  Z , TH, T i Oil L I NE  RAYZ 

I  NC« I NC*1  RAYZ 

CE  TG  3u  RAYZ 

902  fEHHAT<2X,Ai, IX, 615.  f t , 2 , T 1C  ,  5 ,  F 10 , 3 , F 7 , 1 , IX ,  7i A1 »  RAYZ 

25  >.KlTb  (LTHC.1902)  I.KBFiML,XSR»NTe,Z,TM|TiOB,LlNE  RAYZ 

1902  FERMATI4X,515,  f 6 ,2 , F 1C ,5 , f 1 0 , 3 1 F 7 , 1, IX , 71 Ai )  RAYZ 

JO  If  (IZP^Lfc.71iANCiIZP|Gb|l)  UNE<lZP)«lH  RAYZ 

If  (IZH1Lb,71  ,  AND ,  I  ZP  ,  Gb ,  1 )  LIR6UZM)«1H  RAYZ 

If  IUMlLbi71,AND,IZB,Gt,l>  LINE!  JZ«>»1H  RAYZ 

40  CENT  I  MJk  RAYZ 

2  fEHMAT  IlHl.lOABi/)  RAYZ 

RtTLRN  RAYZ 

END  RAYZ  1 
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)S  RAY2DIST 


96/94/79  EC  0 


I C  S  N  T  RAVZDIST 

M|C*AM  LfcKfiTh  01  ';94 

ENTRY  HINTS  ‘  RATZO 1ST  01234 

SLICK  NAMES 

mays  13961 

1  NFS  00C24 

TMPSTR  0C266 

7lE  0CC12 

PICtr  0C  003 

A«C  00026 

EXTERNAL  SYHBfeLS 

C1C1010U 

thenc, 

CSCCICT, 

channel 

*L«010 

ATANF 

STM, 

sue, 

OnSJNOL. 


j 

I 

i 
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St  B3  0t  T  t  Nfc  driSTfc 

byby 

1 

CMfe\SIttlN  Lfc**6U» 

BYBY 

2 

BYBV 

3 

Lb*VE  U»»63oaOOOOU30COCOOB 

BYBV 

4 

ENO 

BYBY 

9 
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S  BTEUV6  06/04/73  ED  0 

ICcU  dVERYE 

PROGRAM  LENGT-i  0C017 

ENTRY  PS! NTS  BYEBVg  00004 
EXTERNAL  SVTtftflS 

060CICT, 
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0000) 

f kTwv  Prims  UUP*' 

0000W 
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0005/ 
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PH08RAH  TN I  (  TPLT 

C  TfilS  VERSION  if  r|HPAI|ABLR  WITH  4-9.72  VERS  I  BN  IF  TR|M*|N  TPLT 

C  DISK  Vt»St0*'  IF  TRlpLT  trlt 

C  IF  INF*  «1l.  FJT  In  C0H£  DISK  IS  N0T  OPENED  TPlT 

C  THIS  D  fc  T  M T  n£d  hy  NHMAX  AND  THE  NUMBER  IF  RATS  Tl  P(.IT  TPL? 

C  TPLT 

C  6  m  m  0  [,  /  I  NF  e  /  1UiNR'RhAX,£maX»RSCAlEiAL'RR(2000  )'ZMT(2000)iIKNH  tplt 
Di  MENS  I  in  TITLE(lg>,0uF(2S4  j  ,iYRPLeT|5i2),2R(io00>»^<»<160B»»SSli000T^LT 
1  )  (NCFUNT  (non  )  TPLT 

CUMM0I,  /l/  ^Sie«(lAj84|  TPLT 

ctMMgN  /?/  TsiPRa<>i«‘t)  tplt 

9uO  F  u  R  m  a  | ( 1 f  A  A )  TPLT 

9U1  FttRHA r (20H1CALC0HH  HL0?  FH0M  HAY  TAPE  ,10A8>  TPLT 

9g2  F8RHAT  ( ?F 8  ,  J ,  ! 4  ,t 1 9 ,f  lo  , i  )  TPLT 

9g3  F0RHAT(awULfcM.TH«<rif ,?,3x,10mh*x  DEP Th» , Fi2 ,  l ,  JX , i4HN| ,  |F  RECIRDTPLT 

IS#  tin,9X.*IKNM*».  I3,5x.»IFMC*»,  J3.5x,*N.  SK»*, 13.5X,*JTTRm, | J,/,  TPLT 
klx.OB  LIMIT. .#M. 3, 5x, •MAXIMUM  NUMBER  0F  surface  REFLECTIONS**,  TPLT 
JlS.Sx, ‘MAxImum  yUmRER  Rf  sSTTom  REFLECT  1 0NS*»  #15)  TPLT 

«U4  F0RMAT ( 28  1 4 )  TPLT 

91)5  FuRMAI  (&HUNHAY.29IS)  TPLT 

9g6  Fu^MATlUMCNF  Of  MA-S.  !6,JX(i9MLEN!iTM  BF  BLOCK ,  I  * ,  3X ,  12HN0  IF  ILBCTPLT 

IKS  # | 6 )  TPLT 

9U39  FfaRMAl (24MPPAK1 TY  f*RnR  IN  KELRRD  (II)  TPLT 

IUF0.y  $  IC0«L  |RE*U  A  i  i TNC  «k£h!ND  1  TPLT 

4  FuflMAj  ( !*>  TPLT 

CALL  ML0TS(bUf-,294,lfl)  TPLT 

2  READ  902.  *L . ZM*x,NHMAX,  |ifNM,  1FMC.NFSK, ITTR, NSR1.NBR1,ALIM1  TPLT 

If  (E0F , 6g  )2  .  /  TPLT 

y  I LO. I LR*1  tplt 

DU  J  u*1.NFSK  tplt 

3  CALL  SKIP)  ILE  <d  TPlT 

read  11), title. ALIm.NbRS.NSRS. ITNSIFUTTR.lt, 0)RE*D  »0B, title  tplt 

IF  (Ak.IHi|NE.0.0,AMD.ALIMl,UT,*L!H)  AL I M»PBhrF ( x p  ,  „ ,  I  . *L I «1 0 • 0 > > -T 
IF  (AUHi'E'J.g.d)  alImi..io,0»*L8610(AL|h>  S  PRINT  001,  TITLE  TPLT 

If  (NSRx.Ne.g.ANO.NSRi.LT.NSRS)  NSRS*NSRi  TPlT 

IF  (NbRI.nE.I.anD.NURI.lT.NURSI  NbRS*NBRl  PLT 

PHInT  RCS.al.^max.NHMpx.JKNM, IFMC.NFSK, |TTB.ALIM1,NSRS,N0RS  .PLT 

If (AL.LE.O. ,*R.AL.GT,l20. J  step  »  IF  (ZMAX.LE.O.)  stop  s  IL»1  tplt 
If  <NHMAX.LE,',.'’H.  NOMAX,  OT.2L0U)  STOP  TPLT 

5  I  m» l L  «19  TPLT 

If  (IM.QT.SU)  ST0H  TPLT 

HbAD  904 , ( NRPlP I  1 1  ) . I  * IL . I M )  TPLT 

PHINT  905,(NRML|T(I),nlL.lM)  TPLT 


If  (E0f .60)  10. IS 

IM*IL-1 

06  TO  ?S 

If  iNRHL0T<IN).EO,O>  09  T 9  20 
I  l.  *  I L  »20 
06  TO  9 
I h« I H«1 

If  (nRML0T(  I  H  >  .  fjfc  ,  u  )  Gu  ro  29 
If (IM,GT.U>  00  T0  ?g 
nioplt 

If  UH.wi.O)  5 1  OF 

L0LKJS2»(912/NT0PLTi 

M0LA*(NRMA*-1)/l9lK»1 
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PRINT  906,HTef'LT,L8L*.M«l.A 

tplt 

37 

NO! SK4RBLR*LRlK4NT8PL  1  »d 

tplt 

58 

If  <ND1SK,GT,2«*20)  STtiB 

tplt 

39 

If  <R8l,K.S0,l.«B,lD7b.fcfl.l)  U*  T§  30 

tplt 

60 

icri.i 

tplt 

61 

CALL  U*8PkM2.3M*AN,C> 

tplt 

62 

e 

PLbT  TJTLE  AND  Z»AA I S 

tplt 

63 

39 

CALL  57*881.(1  .  .0,,.  14, TITLE ,98,, 80) 

tplt 

64 

CALL  5THB8L(2,8,9,93, ,  14 , IRC i C ,  ,1) 

tplt 

65 

Z*0, 

tplt 

66 

Ob  31  I  *  1 , 1C 

tplt 

67 

CALL  HL8T (3 , . 11 ,  •] ,3 ) 

tplt 

68 

CALL  PL8T (3, « 1 0  ,  ■>  1  >  2  ) 

tplt 

69 

CALL  PLBT(3, 09,10,-1,2) 

tplt 

70 

CALL  /L0T(2,93,1O,-1,2) 

tplt 

71 

Z«Z*ZNAX/10, 

tplt 

72 

CALL  NUH86P(2 ,32,9.93-! . .14,2,0. ,4Rf 3,0) 

tplt 

73 

If  t I ,60. 9. AM).  IFMC.Gt.u)  CALL  S7MB8L  ( 2 . , 4 . 3 . . 1* , 9HD6PTM  ( H ) , 9q  , 

.tplt 

74 

19) 

tplt 

75 

If  » l  ,60.9. AND.  iruC.LI .9)  C'U  SThBBL  (2  . ,  4 . 6 ,  .  14 ,  lOMOEPTM  (FT), 

tplt 

76 

198, ,1U> 

tplt 

77 

31 

CONTINUE 

tplt 

78 

If  ( IfHC ,Lt 1 0  )  ZHAX*  Z»AX*O,3U40 

TPLT 

79 

nh«nrmx 

tplt 

80 

M«1 

tplt 

81 

|REC»V 

tplt 

82 

39 

oe  50  ir«i,lhl* 

tplt 

83 

IREC«|BEC«1  f  IftF.C 

tplt 

84 

ReAO(i)  MNAV.RR(IREC)  >71181(18^0,  (TRIM,  I , KHAr > , ( ZB(  I) , 1 , rPAY ) TPLT 

85 

1,  <SS< J )  ,  Hl.NRAY),  (RCUUNTIl ),!■!, SPAT) 

tplt 

86 

!ME8f,l>  34,38 

IfEF-l 

tplt 

87 

36 

tplt 

86 

11  (NR«AX,LT  .  1REC-1)  l>*  Tb  92 

tplt 

89 

NHMAXtlREC'l  ' 

tplt 

90 

NhaNRMAX 

tplt 

91 

Cb  T0  32 

tplt 

92 

38 

If ( I0LHECK.1)  39,40 

TPLT 

93 

39 

PRINT  9o39, IBfcC 

tplt 

94 

<0 

Ob  45  In,fiTopLT  t  KiNOPLbTd)  »J*LBL*» (  I -1 > ♦  1 R  »  7ST0B  ( j )  *2B  (4 ) 

tplt 

95 

If  <NSRS.fc(\?9Cc.A*Ju.*PHS,EU,k5r.D)  GP  T8  4X 

NN*NCf.UNT  (  K  )  JRRbNN/ J  1  N»NN»R»/ l  TN»NSB*“H-NN»  I  TN  3RR*NN/ J  TN»NBR»RR 

tplt 

96 

tplt 

97 

4X  If  (S9<K>,Lfc.AU*,e,«.M<H.G6,A'!>»S,bR.Ml».Gfc,NBRS>  ZSTBR ( J ) »-Z» ( 9 ) 

tplt 

98 

If  (2H(K ) ,LT . 0 .0)  ZST«9( J)*ZB<<) 

tplt 

99 

49 

TST0R(J)»-TR(«) 

tplt 

in 

39 

C8nTJnUE 

tplt 

101 

id 

If (M0LB.E6.1)  Gb  10  «u  »  nfeL«-bLA»LBLb 

tplt 

102 

MUISKI(M-l)*LbLK 

tplt 

103 

Ob  55  1*1  , T P P L t 

tplt 

104 

Call  w*L6CAT6(Mi,I9K) 

tplt 

105 

J*<  I-l)*LbLK«l 

tplt 

106 

k«j«lblk-i 

tplt 

107 

CALL  C*R»ITfc(ZST8H(j>.7STbB<t«n 

tplt 

108 

MD 1 S**MD I i** I UEl 

tplt 

109 

CALL  uKLeCATE(**OJbK) 

TPLT 

110 

CALL  U*R«JTE ( TST0HI J) .TiTbB(K)  ) 

TPLT 

111 

39 

RCI$«4"DIS*MCEl 

TPLT 

112 
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ftj 

IMN.tQ.KBtK.0P.UFF  . to. J>  U<5  Te  65 

TPI  7 

13 

M««*l 

Tf  L  f 

ll4 

Gb  Tel  J*» 

TPLT 

115 

#9 

NNFC02»<  (’  H*-aY-1)/.1?»1  > 

tplt 

116 

RM»Xih»(f.H  ) 

tplt 

117 

«br*tt»*L/«K*x 

tplt 

in 

Call  hlbtbM 

tplt 

119 

If  (KytK.F.U.1)  G(j  r<"  «u 

tplt 

120 

1  0*1 

tplt 

121 

ml  1 S**0 

tplt 

122 

Cm  70  |  *1  ,f.T  VLT 

tplt 

123 

CALL  wALetArc(Mi;|bK) 

tplt 

12« 

CALL  lAREAOI  7S»7LR(l),XS1flH(NfitC)  t 

tplt 

129 

M«lS<»-OIbK*!LFL 

TPLT 

126 

call  ij*  l(-  L  *  T  F  ( ‘'C 1 SK  ) 

tplt 

127 

CALL  lK»FAP(T0T0P(1J, IRT@H(\PfcC) ) 

tplt 

126 

MtlbK»MD!5',»!UFL 

tplt 

129 

CALL  «AYPl£T(^5T0m,TSH,KJ 

tplt 

130 

7u 

It*-I  u 

tplt 

131 

(3b  T'l  90 

tplt 

132 

AU 

1  L«1 

tplt 

133 

Ob  85  l«l,MRPLT 

TPLT 

134 

L* ( I -i ) ALbLAAl 

tplt 

135 

CALL  KAYPLPT<^ST0H<tJ.TSTfa»tU» 

tplt 

136 

45 

IC*-IL 

tplt 

137 

<Ju 

C-LL  KL6T(AL*i«.,0.i-J» 

tplt 

136 

If  (IffcF.fcC.l)  UP  Tj  VI  i  J  RfcC»0 

tplt 

139 

V? 

InFC*I«fcC«l 

tplt 

140 

RfcAD(l)  f  HAY  ,RR( IhEC)  .  7bfll  (JBtC) , (TRU  >  1 

,  l»l,A,RAYJ,  <Z«  ( I )  *  1  ■! ,  N*A¥)  tplt 

141 

1.  ISS(  J ) .  I»1  .’.hay)  ,  <  vf yllNTt  t ),  1»1,NPAYI 

tplt 

142 

If  (EbF.l)  91,92 

TPLT 

143 

VI 

If  (  im.LT.  1  TNC  >  UR  Ttt  2 

TPLT 

144 

CALL  bTfiPMLBT 

tplt 

145 

S  1  RP 

tplt 

146 

Fr.n 

tplt 

147 
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PNEliBAM  C6M»TH 

12/71 

entry 

PblNTb 

TH1PLT 

1143k 

RUECK 

NARfcS 

INFS 

1)764/ 

1 

nPqOu 

2 

41*1)00 

E  XTeflN AL  S^HSlS 

QbfJt^TRY 

TPEnP, 

QbQbTfJPS 

Ck!Jl)7liOC 

Qnu3l0fc 

(JbPUICT, 

PIE  IS 

SKJPFUfe 

C  K  ?  b  E  N 

SYMoRU 

PIG  I 

M^BER 

TKLSCATk 

CKkhITE 

PL«T8fciT 

rKPbAu 

PAVPLfclT 

stepplst 

ALPulC 

PboNF 

CBElFfcSF 

CBEjFiac 

ot-. 

TS*. 

TS9. 

SIP. 

SL«) . 

su . 

QNSINSL, 
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50 


C 

5/ 


50 


5* 


C 

4U 


63 


SuRHPgTlNfc  PtuTbPT 

CO^M0:,  /INFS/  Il),f.R,PrlAX,ZHAX#RSCALE,AL»PR(2000)  •  Z86T  <  ?O00  )  i  IKNM 
NlM»AMlNl(*L*i.|«0.i> 

Rial. 

RHAmNHAX 

If  (l6NM,LT.0)  HMAN«BhAX/1.052 
M iRMAN/RT 

if  ( ‘AT  ,  LE  .  \TH )  GB  1<9  5/ 

RI*2,»HT 
N I iRM»N/RT 

If  (NT, 16. NTH)  Gfc  T R  5/ 

R  I  *2  .  S*RT 
Nl *RHAV/RT 

If  (  NT.L6.NTH)  r,fc|  70  5/ 

R1 «2 . »RT 
Go  T 0  56 

PLOT  SoRfACF  AXIS 
CALL  HL@T (  3  .  > IP . , 3 ) 

X*3 . 

RSCAU6l*PSCALb 

If  (  I RNM , L T  ,  0  )  HSCALE1«1.b52»HSCALE 

DXiWToRSCALbl 

R*0  . 

If  *0 

CALL  HIST (X'10,,2) 
call  HL0T ( X , 9 . 95 i 2  ) 

RAsH/lOOC | 

CALL  (Nl.HH6RIX-.2A  #10.05,;  ,  4fe«l, R« , 0 , , 4MF4 , 0 > 

If (R.LT.RHAN/2. )  ttR  To  59 

if ( ir.eg.i)  sa  ts  59 

If  uknh.lt.ouall  syh0hl(X-,3u,xo.25,  .k.iohrange  <NH),o,*10) 

If  (  IKNH.Gt.OlLALl  RrHBflL(X-,3u.X0.25,  ,l4,nHHANGE  (KM),0,,10) 

If  *1 

CALL  PLOT ( X, lb . 1 3  ) 

If  (H.UE.RfAIN)  0t’  TP  6 U 

X*X*DX 

RtPoR  f 

Gb  TS  58 

PLbT  PfaTTPH  CPnTBUH 
08  63  I  * X , \H 
K»*(R«X*  I 

Y*10.»(1.»Z8ST  OO/ZMAX) 

X«RR(M»RbCALc*3. 

IH*Z 

iMI.tO.l)  IP«3 
If (Y.UE.O, )  30  TP  63 
I H  3  3 
Y«n, 

CALL  PL0T(X,-, IP) 

RfeTURN 

END 


TPIT  141 
TPLT  X49 
TPLT  X5Q 
TPLT  151 
TPLT  X52 
TPLT  153 
TPLT  154 
TPLT  155 
TPLT  156 
TPLT  1ST 
TPLT  156 
TPLT  159 
TPLT  160 
TPLT  161 
TPLT  162 
TPLT  163 
TPLT  164 
TPLT  165 
TPLT  166 
TPLT  167 
TPLT  168 
TPLT  169 
TPLT  170 
TpLT  171 
TPLT  172 
TPLT  173 
TPLT  174 
TPLT  175 
TPLT  176 
TPLT  177 
TPLT  178 
TPLT  179 
TPLT  180 
TPLT  181 
TPLT  182 
TPLT  183 
TPLT  184 
TPLT  185 
TPLT  186 
TPLT  187 
TPLT  188 
TPLT  189 
TPLT  190 
TPLT  191 
TPLT  192 
TPLT  193 
TPLT  194 
TPLT  195 
TPLT  196 
TPLT  197 
TPLT  198 
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I  ObNT  PL0TBST 

PHC6RAM  LENGTH  U0J09 

ENTRY  PB I  NTS  PtSTBST  OOUIII 
BLBLK  NAMES 

1  NT  d  1)764/ 

EXTERNAL  SYMBOLS 

01010X00 

J8QUICT, 

PLOT 

NUMBER 

SYMBOL 

MIN1F 
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74 


XI 

>4 
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HA^PL^TC/SI^H,  1ST5H) 

DI“eNbI0>i  2STuB<2gnu) , TSTUQISuOO) 

D  l''fcMb  t  0*  7(29), R<?9) 

CoMMBrt,  /1\F0/  JU,NB,PM*X,ZMAx,BSC*L£,*L,RH(2000)i2«eT(2oOO) 

Ml"»l  S  lfiH.t  t  I  PH*u  %  1HT  ■  U  » ! R I *0  %  I  ST  «0  t  !JT«0 

IMI0,LT.U>  'HCifcK  %  IF  (NIU.MF.l)  IPRil 

Z(i*4MbF(7ST(jB(Mn>)  9  !)  (7ST0RI1)  .LT.0.0)  RETURN 

To.TS  TnR ( n 1 0 ) 

ri»*rr(mpj 

7b«478'!'T(M0) 

X=R),hSCAlE  i  1 F  UP.r.l./Rtl)  70»ZR0 
Y«ta.»(l.-70/4^AX) 

I )  (y.lt.c, )  y*n, 
call  hlqt(x*t. ,  y,ji 
Cu  v n  ll./iNR 
!K!I),GT.U>  5b  T (■)  7 J 
L*>'R-LLa1 
C <o  TH  74 
L  SLL 
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Zo*-7o 

TPLT 

227 

7to\«-ZFN 

TPLT 

228 

T*»-Tia 

TPLT 

229 

7j 

TaMZaWoE  >/b» 

TPLT 

230 
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235 

Ri*Rfl»2.»liZ/(TR*l,/TPJ 

TPLT 

236 

Tui(Tb-TP)/(l,*TG»Td) 

TPLT 

237 
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tplt 
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tplt 
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289 

81 
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IF(ZP,FO.Z0N»(pP-HN)«l p . AIXO,Z5TO»<L) .L7t c , ) iPR*i 

tplt 

3n2 

tplt 

3n3 

IF  (ZP.EQ.ZHN-IRP-N*1)* IR. AND, I « x  ,e&.l )  IJT*1  1X»HP.RSCALE 
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IF  (  IPR.E(i.l.0R.ZSTdB(L)  .OF, 0,0)  OP  T0  86 

tplt 

307 

!B7 
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Appendix  B 

COMPARISON  OF  CALCULATED  AND  EXPERIMENTAL  RESULTS 


A  comparison  was  made  between  the  calculated  results  from  TRIM  AIN  and  some 
experimental  data  which  was  furnished  by  Cdr.  P.R.  Tatro  of  the  Maury  Center  for 
Ocean  Science.  The  input  parameters  for  TRIMAIN  were:  a  frequency  of  100  hertz 
and  no  volume  attenuation,  a  fan  of  rays  between  ±  60°  in  1°  steps,  a  bottom  loss  of 
MGS  class  IV  for  the  entire  track,  type  II  intensity  calculations,  a  source  depth  of 
152.4  meters  and  a  receiver  depth  of  762.0  meters.  Figs.  Bla,  Bib,  and  Blc  are  print 
plots  of  input  sound-speed  profiles,  Fig.  B2  is  a  Calcomp  plot  of  profiles  and  the  bottom 
track,  Fig.  B3a  is  a  list  of  calculated  intensity  values,  Fig.  B3b  is  a  list  of  experimental 
intensity  values,  Fig.  B4  is  a  Calcomp  plot  of  selected  rays  which  were  traced  (one  ray 
every  15°),  and  Fig.  B5  is  a  Calcomp  comparison  of  experimental  and  calculated  intensity 
values.  Good  agreement  exists  between  the  two  sets  of  values. 
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Fig.  Bl*  —  Input  profile  «t  0  km 
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Fig.  Bib  —  Input  profile  at  111.216  km 
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Fig.  Blc  —  Input  Profile  at  329.941  km 


NRL  REPORT  7827 


*0,000 

.3 

,  »*0 

12# ."00 

91,300 

193 ,"00 

9«, 7g0 

294,000 

)  J" 

"on 

.1 ,  "00 

»J 

,000 

127,  "kO 

92, 3.0 

193, "00 

1C  0 , 300 

295, "OO 

10" 

104 

. "on 

.4 

,400 

121, "00 

94,000 

194, "CO 

1 l?i*OC 

2.C.OCO 

1*5 

"04 

C IlCb* 

63.004 

#4 

,‘i)0 

121, "00 

95, #00 

195, "OO 

1  ^3,-500 

2*1, "CO 

104 

904 

.4,000 

.6 

,10" 

110, "CO 

94,900 

19# , "o  0 

1 1  6  #  ?  o  11 

2.3,000 

103 

30" 

6 *'  GE 

.5, "03 

.. 

,700 

131,000 

97, "Q0 

197,000 

1C7,HC 

2.3,400 

111 

300 

1.910 

j# , ft  o  e 

.#,000 

.7 

,700 

1J3 ,"00 

9. ,«00 

194, "04 

1  C  4( UiD 

2.4,000 

9" 

904 

.7,000 

.4 

,000 

123,000 

.",300 

199,400 

1 C6,90C 

2.9,000 

9* 

404 

4  >  %  0 

.3,4.0 

.1,000 

90 

,900 

1J4,"00 

10", 200 

2.0,004 

2.4,400 

94 

2*4 

?  ,  *  C  0 

.6 , OHO 

.4,000 

42 

.000 

115,000 

101,900 

201,004 

1 1)6 , 9 nn 

2.7,000 

94 

404 

6  ,  *  t  o 

.  4  ,  4  C  0 

70 , "00 

9? 

70" 

11#, "00 

101,400 

703, "04 

109l6g0 

2.2,000 

*4 

100 

•  i  n  i  0 

.4,7.0 

71,000 

43 

400 

117, "kO 

102,400 

203,000 

in?, 600 

2.9,000 

54 

304 

t .  Hfl 

70, 400 

7S.100 

92 

og" 

111,400 

103, .00 

204,400 

it?, 600 

270,000 

*4 

200 

J  »  *C  fl 

t 1 , ?*4 

73,000 

42 

OOO 

114,001 

105, .90 

205,400 

uit*;o 

271,000 

94 

204 

#  •  *C (* 

•  4, 'O'1 

72, "oO 

47 

400 

140,090 

107, "00 

204,000 

1 01 , POO 

*73,400 

704 

<  ,  9  C  0 

.1, n*4 

7*. "00 

94 

ng" 

141,000 

107,400 

207, "00 

HO,  UO 

273,000 

*3 

"00 

if .  AC  0 

el. "00 

7#."i,0 

93 

50" 

1«3."C" 

105,904 

204  , "on 

96,000 

274,000 

9? 

*yO 

11 , *C  9 

.7,100 

77, '0" 

4? 

30" 

143,400 

19", .00 

209,00" 

97,?g0 

275,000 

92 

"0" 

15 . "t  0 

.7, OyO 

7..000 

42 

30" 

144,400 

110, .0" 

210, "00 

96,000 

*74.000 

*2 

.04 

1!. frl 

1 7 , 4  u  0 

74.000 

43 

10" 

145,404 

112,400 

211,000 

96,900 

277,0*0 

9? 

.04 

14.  %3 

.7,000 

.0,000 

45 

300 

14#, "CO 

110,700 

213,000 

93,000 

272,000 

43 

104 

1?  i *b9 

.7,400 

11 , ooo 

45 

"00 

147, "C4 

107,400 

213.000 

97,700 

279, "00 

93 

404 

u ,  *co 

.7, >,00 

(i.ooo 

44 

#00 

144,405 

10", 104 

214,000 

9?, 600 

2IC.400 

94 

104 

17.6*0 

.7, <00 

*3. "CO 

4« 

"00 

144,«C0 

lot, 400 

219,000 

V? ,  A(j0 

211.400 

94 

004 

11 .  *'£9 

.7, 7J0 

14,000 

40 

200 

150,400 

10*,100 

214,000 

92,600 

203.000 

94 

500 

19 . 6  C  0 

.7,400 

.5. "CO 

40 

OOO 

191,000 

101,400 

717,000 

9?<9(jO 

203,000 

49 

OOO 

2C . f tO 

.4,7on 

<«.nco 

10" 

00" 

193,400 

94,400 

214,000 

97,600 

204,000 

95 

004 

i\ ,*itl 

..,100 

.7, Ow" 

1  0  3 

"o" 

153,400 

97, "0" 

219,400 

62,100 

205, "CO 

9. 

504 

25  .HO 

et.OLO 

•4,"k0 

luS 

og" 

194, "OO 

57,400 

2.0,004 

91,9U0 

204. "00 

97 

non 

2 ; ,  *  *.  o 

.0, luO 

.4,000 

102 

ogn 

195,000 

9", 300 

2.1,000 

V1,?G0 

217,400 

90 

1*4 

24 ,  HO 

.. ,J00 

40. 4*0 

10" 

300 

15#, 400 

94,.u" 

223,000 

VI, 3  y  D 

212,000 

99 

704 

2! « ntO 

.4,700 

•1 , "CO 

101 

OOO 

197,000 

92,900 

2.3,400 

91,600 

219,000 

1*0 

104 

it ,  nC  0 

.4,400 

93, "kO 

104 

500 

194,000 

50,900 

224,000 

92,000 

290,000 

130 

604 

25. 9*3 

0  0 , 1 0  0 

43. "CO 

10. 

70" 

1»4,"C0 

90,700 

225, OOO 

97.600 

291,000 

10" 

.04 

It  . "CO 

9", 9*0 

44,000 

1 0  7 

50" 

140. "04 

90, "04 

224,400 

9?, 900 

293,000 

1*0 

300 

59 , *C0 

9  r , *0  0 

•5, "CO 

ICO 

40" 

141,40" 

94, "00 

227,000 

93,700 

293,000 

49 

50" 

JC, "td 

40,400 

•4.000 

109 

500 

1.3, "04 

90,90" 

222,000 

96,400 

294,000 

90 

10" 

31 . Otfl 

40, 7Q0 

•7,000 

103 

700 

1.3,400 

9", 900 

225,400 

99,200 

*95,000 

9. 

"04 

3?. *(0 

40,000 

tl, "CO 

Ui" 

500 

134,004 

90,300 

230,400 

96,900 

294,000 

704 

JJ.6C0 

.4, 10" 

94.000 

4» 

"00 

1.5,404 

90, "00 

211,400 

96, 1oO 

*97,400 

9. 

404 

34, «C0 

.4, 100 

100, Ooo 

45 

400 

1.4,000 

99,300 

213,400 

96, OuO 

292,400 

45 

•  *0 

3!  i  0  0  (1 

.7,100 

101,000 

43 

40" 

1.7 . " 0  0 

.9,100 

213, "CO 

96,600 

*99,400 

9. 

"04 

*6.  !>U0 

.7,000 

103.000 

41 

900 

1.4,000 

.9,500 

214,000 

96,600 

300,400 

5. 

700 

5 , 9C0 

.7, 2*0 

103, "CO 

40 

30" 

1.4,000 

99. "00 

215,000 

96, ?uO 

301,0*0 

9* 

100 

30 ,  POO 

47,40" 

i04,oco 

.« 

500 

17C,"00 

•0,400 

714. "00 

<9,900 

303,000 

95 

500 

3*. "to 

.7,40" 

105,000 

.7 

90" 

171. "k" 

9", 900 

217,000 

99,700 

303,000 

95 

100 

«c,nto 

.7,900 

104,000 

*7 

900 

173,400 

•1,700 

214.000 

99 .100 

304,400 

95 

30" 

4i,nto 

47,90" 

107,000 

47 

OOO 

173,000 

•2,500 

215.400 

99,700 

305,000 

4* 

40" 

45 ,  "uO 

.§,"0" 

io»  .oco 

*7 

700 

174, "CO 

92,500 

240 , "CO 

99,900 

304,000 

9. 

"04 

«!, "GO 

.9,500 

104,000 

47 

00" 

175, "00 

52,700 

241,400 

99,700 

307,000 

9. 

900 

44,  "CO 

.9,400 

110,000 

.7 

#00 

174, "00 

92,70" 

292.000 

96,»00 

304,000 

97 

"U" 

45 ,  "CO 

9", <00 

111,000 

.7 

30" 

177, "kO 

93,10" 

243.400 

93,  «t  0 

305,400 

57 

70" 

4e,"co 

. 9 ,  ?Q 0 

113. "00 

.7 

IOC 

174,400 

53,30" 

244, "00 

96 , H0u 

sir  ,i»oo 

9. 

100 

47,flt0 

.4,300 

113.00" 

.0 

90" 

174,400 

93,500 

2*5,400 

96,000 

711,400 

97 

70" 

4f  ,eco 

.4,700 

114, "0" 

.7, 

100 

l.f ,"00 

93,700 

244,000 

94,900 

113,404 

9* 

.04 

69 , "CO 

"5,200 

115, "CO 

*7, 

too 

111,400 

*3,500 

247,000 

99,100 

313,400 

101 

50" 

»C,"r  " 

.3,400 

ii#  ,"co 

.7, 

70" 

113,000 

93,700 

244,000 

99,*oO 

314,000 

102 

"04 

>1  ."C" 

.3,30" 

117,000 

#7, 

OO" 

1.3, 400 

57, "OP 

245, "0" 

96,400 

315,000 

102 

"0" 

»2.RC3 

es,4oo 

ii# ,"co 

#*, 

500 

114,000 

53,30" 

*90,004 

97.PS0 

314, "CO 

102 

200 

>3, "CO 

#3,700 

114, "00 

e», 

00" 

1.5, 4oO 

93,300 

291.400 

97,900 

317,400 

101 

100 

54,"C0 

.3,400 

120 ,"C0 

.4, 

OO" 

1.4,000 

93,700 

253,400 

96,700 

314,000 

9* 

500 

>5, "CO 

.4,100 

121 ,"00 

4", 

30" 

1.7,400 

93,50" 

293.000 

100,700 

314,004 

57 

60" 

si.oto 

.4,000 

123,000 

9"  , 

700 

1.4 ■ n0" 

95,000 

294,004 

107,700 

320,400 

95 

600 

55, "CO 

.3,400 

123,000 

41, 

"0" 

1.4,004 

*4,100 

255, "00 

H4.100 

3.1,400 

95 

200 

90,600 

o7, 700 

124, "00 

91, 

100 

150  ,"00 

*7,900 

29#, 400 

1 19,  OuO 

323,000 

20" 

54, "CO 

.7,  7 0 0 

125,00" 

91  , 

20" 

191, "CO 

9", 90" 

257,000 

1 39,400 

323. "CO 

95 

300 

Fig.  B3a  —  Calculated  intensity  values 
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